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 | 33be706e4416e4df2ec4374a9bce586ba52171b4 (patch) | |
| tree | c1a26163a027491def8861f1e72772af90491085 /tests | |
| parent | 3a87207d3139e4ae8f5374edc0c87b18d42e10e1 (diff) | |
| parent | a29fa51c0eacb2e4a9a420da939ca5517383a9b3 (diff) | |
| download | tk-33be706e4416e4df2ec4374a9bce586ba52171b4.zip tk-33be706e4416e4df2ec4374a9bce586ba52171b4.tar.gz tk-33be706e4416e4df2ec4374a9bce586ba52171b4.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 |