diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-06-13 11:19:28 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-06-13 11:19:28 (GMT) |
| commit | 39bbb225ffcc12334ddd43873530cd2d23dacdaf (patch) | |
| tree | 6f284092141abec952970e2c32ec009803a3be80 /tests | |
| parent | c312dabab440df7f8ff872a097025538c86f7384 (diff) | |
| download | tk-39bbb225ffcc12334ddd43873530cd2d23dacdaf.zip tk-39bbb225ffcc12334ddd43873530cd2d23dacdaf.tar.gz tk-39bbb225ffcc12334ddd43873530cd2d23dacdaf.tar.bz2 | |
Add (currently crashing) test text-8.28 to demonstrate [de01e24aa1]: Text replace command involving selection crashes
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/text.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test index 5b688f1..c656446 100644 --- a/tests/text.test +++ b/tests/text.test @@ -1587,6 +1587,15 @@ test text-8.27 {TextWidgetCmd procedure, "replace" option crash} -setup { } -cleanup { destroy .tt } -result {} +test text-8.28 {TextWidgetCmd procedure, "replace" option crash} -setup { + text .tt +} -body { + .tt insert end "foo\n" + .tt tag add sel 1.0 end + .tt replace sel.first sel.last "bar" +} -cleanup { + destroy .tt +} -result {} test text-9.1 {TextWidgetCmd procedure, "get" option} -setup { |