diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-26 16:01:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-26 16:01:29 (GMT) |
| commit | 8fdf20ec2b62f7da18e6acb82772c15d7ee2c596 (patch) | |
| tree | ee0bd8e8518df1437c9590065fba905148076a35 | |
| parent | bf7b1adb896dbe4f79efb038aa0ecaebbdd3919c (diff) | |
| download | tcl-8fdf20ec2b62f7da18e6acb82772c15d7ee2c596.zip tcl-8fdf20ec2b62f7da18e6acb82772c15d7ee2c596.tar.gz tcl-8fdf20ec2b62f7da18e6acb82772c15d7ee2c596.tar.bz2 | |
More dstring testcases, extracted from [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 8a24ebe..6cf4bb8 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 \\\\\\n +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 [list [list \{]] +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 [list [list \}]] +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 [list [list \\]] test dstring-3.1 {nested sublists} -constraints testdstring -setup { testdstring free |