diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-01-22 16:12:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-01-22 16:12:27 (GMT) |
| commit | b234fa21ff63b9be8fba12185f3f87a228bac3fc (patch) | |
| tree | c1a26163a027491def8861f1e72772af90491085 /tests/textMark.test | |
| parent | 6a1b23bb279925e25b7611184ad2915ff5043d8b (diff) | |
| parent | 33a724f6c44c1c2ab31597a064b552f3d49e1fbf (diff) | |
| download | tk-b234fa21ff63b9be8fba12185f3f87a228bac3fc.zip tk-b234fa21ff63b9be8fba12185f3f87a228bac3fc.tar.gz tk-b234fa21ff63b9be8fba12185f3f87a228bac3fc.tar.bz2 | |
patch 3471873: mark next/prev with peer text widgets
Diffstat (limited to 'tests/textMark.test')
| -rw-r--r-- | tests/textMark.test | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/textMark.test b/tests/textMark.test index c83b4c8..a412574 100644 --- a/tests/textMark.test +++ b/tests/textMark.test @@ -18,6 +18,7 @@ update .t debug on wm geometry . {} entry .t.e +.t peer create .pt .t insert 1.0 "Line 1 abcdefghijklm @@ -188,6 +189,12 @@ test textMark-7.8 {MarkFindNext - no next mark} -setup { .t mark set insert 3.0 .t mark next insert } -result {} +test textMark-7.9 {MarkFindNext - mark set in a text widget and retrieved from a peer} -setup { + .t mark unset {*}[.t mark names] +} -body { + .t mark set mymark 1.0 + set res [list [.pt mark next 1.0] [.pt mark next mymark] [.pt mark next insert]] +} -result {mymark insert current} test textMark-8.1 {MarkFindPrev - invalid mark name} -body { .t mark prev bogus @@ -239,7 +246,14 @@ test textMark-8.8 {MarkFindPrev - no previous mark} -setup { .t mark set insert 3.0 .t mark prev current } -result {} +test textMark-8.9 {MarkFindPrev - mark set in a text widget and retrieved from a peer} -setup { + .t mark unset {*}[.t mark names] +} -body { + .t mark set mymark 1.0 + set res [list [.pt mark prev end] [.pt mark prev current] [.pt mark prev insert]] +} -result {current insert mymark} +destroy .pt destroy .t # cleanup |