diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-06-16 08:48:37 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-06-16 08:48:37 (GMT) |
| commit | 5351802d2c1ffebbfd54947c3edbcce1e16170df (patch) | |
| tree | 60965af57fd20ced97f773bcb907e7e330b0a0e3 /tests/text.test | |
| parent | ee268b3fe72d690a375c2c07259d79ab56cb9a36 (diff) | |
| parent | bb2ae0ac6db0e62f398aa8e892382f18d6cdc95b (diff) | |
| download | tk-5351802d2c1ffebbfd54947c3edbcce1e16170df.zip tk-5351802d2c1ffebbfd54947c3edbcce1e16170df.tar.gz tk-5351802d2c1ffebbfd54947c3edbcce1e16170df.tar.bz2 | |
Fix [de01e24aa1]: Text replace command involving selection crashes
Diffstat (limited to 'tests/text.test')
| -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 48455d0..f5225d9 100644 --- a/tests/text.test +++ b/tests/text.test @@ -1599,6 +1599,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 { |