diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-01-22 16:12:27 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-01-22 16:12:27 (GMT) |
| commit | da27e6d42b4924c33aa2b63079747256d3100003 (patch) | |
| tree | c1a26163a027491def8861f1e72772af90491085 /tests | |
| parent | 74a2f74a792bf8722433745ed8be571c481b0bde (diff) | |
| parent | e92b2272247eef29862d35f851bf1c51402918f6 (diff) | |
| download | tk-da27e6d42b4924c33aa2b63079747256d3100003.zip tk-da27e6d42b4924c33aa2b63079747256d3100003.tar.gz tk-da27e6d42b4924c33aa2b63079747256d3100003.tar.bz2 | |
patch 3471873: mark next/prev with peer text widgets
Diffstat (limited to 'tests')
| -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 |