diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-26 16:04:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-26 16:04:03 (GMT) |
| commit | 08a6b105e5cb11098c471a55a9d434fb4db83165 (patch) | |
| tree | 759f99b261e4f63b8b4d47e60af281fa14c64202 | |
| parent | 1c3c25097b1f63d6b1a0446c2c441833c4ecec11 (diff) | |
| parent | 8fdf20ec2b62f7da18e6acb82772c15d7ee2c596 (diff) | |
| download | tcl-08a6b105e5cb11098c471a55a9d434fb4db83165.zip tcl-08a6b105e5cb11098c471a55a9d434fb4db83165.tar.gz tcl-08a6b105e5cb11098c471a55a9d434fb4db83165.tar.bz2 | |
Merge 8.6
| -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..23863d0 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 |