diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-03-01 17:36:13 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-03-01 17:36:13 (GMT) |
| commit | bc0f830a410e3cda93f230708229cb35dbb788f2 (patch) | |
| tree | 4bcc2aec4b290a2d192a84c65a7032d77f9c51cb /tests | |
| parent | 2d1dee7c0fdf51a57ac71ed493aa92e278a7720e (diff) | |
| parent | bcb71c3efaadfc55dcd742522aaf331a40b9a7ec (diff) | |
| download | tk-bc0f830a410e3cda93f230708229cb35dbb788f2.zip tk-bc0f830a410e3cda93f230708229cb35dbb788f2.tar.gz tk-bc0f830a410e3cda93f230708229cb35dbb788f2.tar.bz2 | |
trunk merged to branch tip-443
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/bevel.tcl | 2 | ||||
| -rw-r--r-- | tests/entry.test | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/tests/bevel.tcl b/tests/bevel.tcl index 531def0..4af60f3 100644 --- a/tests/bevel.tcl +++ b/tests/bevel.tcl @@ -147,14 +147,12 @@ set ind [.t.t index end] xxxx} {} SSSSS sol100 {xxxx x} {} SSSSSSSSSSSSSSSSSS sol100 {x xxx} {} SSSSSSSSS sol100 xxxx {} -} .t.t insert end "\n\nA thinner border is continuous" .t.t insert end { xxxx} {} SSSSS sol12 {xxxx x} {} SSSSSSSSSSSSSSSSSS sol12 {x xxx} {} SSSSSSSSS sol12 xxxx {} -} .t.t tag add big $ind end diff --git a/tests/entry.test b/tests/entry.test index 4f09450..d27ffb5 100644 --- a/tests/entry.test +++ b/tests/entry.test @@ -1074,7 +1074,7 @@ test entry-3.42 {EntryWidgetCmd procedure, "scan" widget command} -setup { } -body { .e scan a } -cleanup { - destroy .efixed + destroy .e } -returnCodes error -result {wrong # args: should be ".e scan mark|dragto x"} test entry-3.43 {EntryWidgetCmd procedure, "scan" widget command} -setup { entry .e |