Lines Matching refs:buffer
20 " Check that switching to another buffer does not trigger ml_get error.
27 " Try to run a command in a 'nomodifiable' buffer
52 " Test ::vim::buffer
54 " Test ::vim::buffer {nr}
58 let b1 = TclEval('::vim::buffer ' . bn1)
59 call assert_equal(b1, TclEval('set ::vim::current(buffer)'))
64 let b2 = TclEval('::vim::buffer ' . bn2)
65 call assert_equal(b2, TclEval('set ::vim::current(buffer)'))
70 " Test ::vim::buffer exists {nr}
71 call assert_match('^[1-9]\d*$', TclEval('::vim::buffer exists ' . bn1))
72 call assert_match('^[1-9]\d*$', TclEval('::vim::buffer exists ' . bn2))
73 call assert_equal('0', TclEval('::vim::buffer exists 54321'))
75 " Test ::vim::buffer list
76 call assert_equal('2', TclEval('llength [::vim::buffer list]'))
77 call assert_equal(b1.' '.b2, TclEval('::vim::buffer list'))
80 foreach b [::vim::buffer list] { $b command $cmd }
89 call assert_fails('tcl ::vim::buffer',
90 \ 'wrong # args: should be "::vim::buffer option"')
91 call assert_fails('tcl ::vim::buffer ' . bn1 . ' x',
92 \ 'wrong # args: should be "::vim::buffer bufNumber"')
93 call assert_fails('tcl ::vim::buffer 4321', 'invalid buffer number')
94 call assert_fails('tcl ::vim::buffer x',
96 call assert_fails('tcl ::vim::buffer exists',
97 \ 'wrong # args: should be "::vim::buffer exists bufNumber"')
98 call assert_fails('tcl ::vim::buffer exists x',
100 call assert_fails('tcl ::vim::buffer list x',
101 \ 'wrong # args: should be "::vim::buffer list "')
102 " Invalid buffer command
103 call assert_fails('tcl $::vim::current(buffer) abcd',
283 " Test $win buffer
287 tcl set b2 $::vim::current(buffer)
290 tcl set b1 $::vim::current(buffer)
293 call assert_equal(TclEval('set b1'), TclEval('$w1 buffer'))
294 call assert_equal(TclEval('set b2'), TclEval('$w2 buffer'))
295 call assert_equal(string(bufnr('Xfoo1')), TclEval('[$w1 buffer] number'))
296 call assert_equal(string(bufnr('Xfoo2')), TclEval('[$w2 buffer] number'))
298 call assert_fails('tcl $w1 buffer x', 'wrong # args:')
388 " Test buffer name with a named buffer
390 call assert_equal(expand('%:p'), TclEval('$::vim::current(buffer) name'))
393 " Test buffer name with an unnamed buffer
395 call assert_equal('', TclEval('$::vim::current(buffer) name'))
397 call assert_fails('tcl $::vim::current(buffer) name x', 'wrong # args:')
405 call assert_equal(string(bufnr('%')), TclEval('$::vim::current(buffer) number'))
407 call assert_equal(string(bufnr('%')), TclEval('$::vim::current(buffer) number'))
409 call assert_fails('tcl $::vim::current(buffer) number x', 'wrong # args:')
418 call assert_equal('3', TclEval('$::vim::current(buffer) count'))
419 call assert_equal('3', TclEval('$::vim::current(buffer) last'))
423 call assert_equal('3', TclEval('$::vim::current(buffer) count'))
424 call assert_equal('2', TclEval('$::vim::current(buffer) last'))
426 call assert_fails('tcl $::vim::current(buffer) count x', 'wrong # args:')
427 call assert_fails('tcl $::vim::current(buffer) last x', 'wrong # args:')
433 " Test $buf delete (delete line(s) in buffer)
437 tcl $::vim::current(buffer) delete 4 6
438 tcl $::vim::current(buffer) delete 2
441 call assert_fails('tcl $::vim::current(buffer) delete -1', 'line number out of range')
442 call assert_fails('tcl $::vim::current(buffer) delete 0', 'line number out of range')
443 call assert_fails('tcl $::vim::current(buffer) delete 5', 'line number out of range')
445 call assert_fails('tcl $::vim::current(buffer) delete', 'wrong # args:')
446 call assert_fails('tcl $::vim::current(buffer) delete 1 2 3', 'wrong # args:')
447 call assert_fails('tcl $::vim::current(buffer) delete 1 abc',
450 " Try to delete lines from an 'nomodifiable' buffer
452 call assert_fails('tcl $::vim::current(buffer) delete 2 1',
459 " Test $buf insert (insert line(s) in buffer)
462 tcl set buf $::vim::current(buffer)
478 " Test $buf append (append line in buffer)
481 tcl set buf $::vim::current(buffer)
496 " Try to append lines to a 'nomodifiable' buffer
506 " Test $buf set (replacing line(s) in a buffer)
510 tcl $::vim::current(buffer) set 2 a
514 tcl $::vim::current(buffer) set 3 4 b
516 tcl $::vim::current(buffer) set 4 3 c
520 tcl $::vim::current(buffer) set 2 3 {x y z}
522 tcl $::vim::current(buffer) set 3 2 {X Y Z}
525 call assert_fails('tcl $::vim::current(buffer) set 0 "x"', 'line number out of range')
526 call assert_fails('tcl $::vim::current(buffer) set 6 "x"', 'line number out of range')
528 call assert_fails('tcl $::vim::current(buffer) set', 'wrong # args:')
529 call assert_fails('tcl $::vim::current(buffer) set 1 2 {[list "a" "b"]}',
532 " Try to modify a 'nomodifiable' buffer
534 call assert_fails('tcl $::vim::current(buffer) set 1 "x"',
536 call assert_fails('tcl $::vim::current(buffer) set 1 {a b}',
538 call assert_fails('tcl $::vim::current(buffer) set 1 2 {a b}',
544 " Test $buf get (get line(s) from buffer)
548 tcl set buf $::vim::current(buffer)
569 call assert_fails('tcl $::vim::current(buffer) get x', 'expected integer but got "x"')
570 call assert_fails('tcl $::vim::current(buffer) get 1 x', 'expected integer but got "x"')
571 call assert_fails('tcl $::vim::current(buffer) get 1 1 1', 'wrong # args:')
585 call assert_equal('row 3 column 1', TclEval('$::vim::current(buffer) mark a'))
586 call assert_equal('row 4 column 3', TclEval('$::vim::current(buffer) mark B'))
588 call assert_fails('tcl $::vim::current(buffer) mark /', 'invalid mark name')
589 call assert_fails('tcl $::vim::current(buffer) mark z', 'mark not set')
590 call assert_fails('tcl $::vim::current(buffer) mark', 'wrong # args:')
596 " Test $buf option (test and set option in context of a buffer)
599 tcl set b1 $::vim::current(buffer)
601 tcl set b2 $::vim::current(buffer)
613 call assert_fails('tcl $::vim::current(buffer) option', 'wrong # args:')
624 tcl set b1 $::vim::current(buffer)
628 tcl set b2 $::vim::current(buffer)
639 " Test $buf delcmd {cmd} (command executed when buffer is deleted)
643 tcl $::vim::current(buffer) delcmd [list set msg "buffer deleted"]
647 call assert_equal('buffer deleted', TclEval('set msg'))
649 call assert_fails('tcl $::vim::current(buffer) delcmd', 'wrong # args')
650 call assert_fails('tcl $::vim::current(buffer) delcmd x x', 'wrong # args')
659 call assert_fails('tcl $::vim::current(buffer)', 'wrong # args:')
663 " Test $buf windows (windows list of a buffer)
671 tcl set bar_wl [$::vim::current(buffer) windows]
673 tcl set foo_wl [$::vim::current(buffer) windows]
678 call assert_fails('tcl $::vim::current(buffer) windows x', 'wrong # args:')