diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-02-25 08:58:31 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-02-25 08:58:31 (GMT) |
| commit | a826e66f11a2823847cb7788a1d929a9799c95ad (patch) | |
| tree | e061049d37953833cf89b7ffbff950adaf54cec2 | |
| parent | 8390c51fcaeaa278ec7ec40ec5d31ee187c25208 (diff) | |
| download | tcl-a826e66f11a2823847cb7788a1d929a9799c95ad.zip tcl-a826e66f11a2823847cb7788a1d929a9799c95ad.tar.gz tcl-a826e66f11a2823847cb7788a1d929a9799c95ad.tar.bz2 | |
Add tests for Bug [46dda6fc29]
| -rw-r--r-- | tests/dstring.test | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/tests/dstring.test b/tests/dstring.test index 314cee8..8699a5e 100644 --- a/tests/dstring.test +++ b/tests/dstring.test @@ -211,6 +211,38 @@ test dstring-2.15 {appending list elements} -constraints testdstring -setup { } -cleanup { testdstring free } -result {x #} +test dstring-2.16 {appending list elements - bug [46dda6fc29] segfault} -constraints testdstring -setup { + testdstring free +} -body { + testdstring element "\\\n"; # Will setfault + testdstring get +} -cleanup { + testdstring free +} -result {} +test dstring-2.17 {appending list elements - bug [46dda6fc29] segfault} -constraints testdstring -setup { + testdstring free +} -body { + testdstring element "\\\{"; # Will setfault + testdstring get +} -cleanup { + testdstring free +} -result {} +test dstring-2.18 {appending list elements - bug [46dda6fc29] segfault} -constraints testdstring -setup { + testdstring free +} -body { + testdstring element "\\\}"; # Will setfault + testdstring get +} -cleanup { + testdstring free +} -result {} +test dstring-2.19 {appending list elements - bug [46dda6fc29] segfault} -constraints testdstring -setup { + testdstring free +} -body { + testdstring element "\\\\"; # Will setfault + testdstring get +} -cleanup { + testdstring free +} -result {} test dstring-3.1 {nested sublists} -constraints testdstring -setup { testdstring free |