diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-31 10:38:25 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-31 10:38:25 (GMT) |
| commit | 4c25696376a8c5d1f66c51a06193e8dc815287f7 (patch) | |
| tree | d9d8367476dd8deff3bebfb6f81b295845b91ee0 /tests/timer.test | |
| parent | 2dab8fa488cce34d6dc5538612f1b1fba01c8ab5 (diff) | |
| parent | 9406745440cf6387d6aaa25d4b595fba069cf5d0 (diff) | |
| download | tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.zip tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.tar.gz tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'tests/timer.test')
| -rw-r--r-- | tests/timer.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/timer.test b/tests/timer.test index 1ad17ae..52c0b8a 100644 --- a/tests/timer.test +++ b/tests/timer.test @@ -367,7 +367,7 @@ test timer-6.23 {Tcl_AfterCmd procedure, no option, script with NUL} -setup { } } -body { set x "hello world" - after 1 "set x ab\0cd" + after 1 "set x ab\x00cd" after 10 update string length $x @@ -378,7 +378,7 @@ test timer-6.24 {Tcl_AfterCmd procedure, no option, script with NUL} -setup { } } -body { set x "hello world" - after 1 set x ab\0cd + after 1 set x ab\x00cd after 10 update string length $x @@ -389,8 +389,8 @@ test timer-6.25 {Tcl_AfterCmd procedure, cancel option, script with NUL} -setup } } -body { set x "hello world" - after 1 set x ab\0cd - after cancel "set x ab\0ef" + after 1 set x ab\x00cd + after cancel "set x ab\x00ef" llength [after info] } -cleanup { foreach i [after info] { @@ -403,8 +403,8 @@ test timer-6.26 {Tcl_AfterCmd procedure, cancel option, script with NUL} -setup } } -body { set x "hello world" - after 1 set x ab\0cd - after cancel set x ab\0ef + after 1 set x ab\x00cd + after cancel set x ab\x00ef llength [after info] } -cleanup { foreach i [after info] { @@ -417,7 +417,7 @@ test timer-6.27 {Tcl_AfterCmd procedure, idle option, script with NUL} -setup { } } -body { set x "hello world" - after idle "set x ab\0cd" + after idle "set x ab\x00cd" update string length $x } -result {5} @@ -427,7 +427,7 @@ test timer-6.28 {Tcl_AfterCmd procedure, idle option, script with NUL} -setup { } } -body { set x "hello world" - after idle set x ab\0cd + after idle set x ab\x00cd update string length $x } -result {5} @@ -438,7 +438,7 @@ test timer-6.29 {Tcl_AfterCmd procedure, info option, script with NUL} -setup { } -body { set x "hello world" set id junk - set id [after 10 set x ab\0cd] + set id [after 10 set x ab\x00cd] update string length [lindex [lindex [after info $id] 0] 2] } -cleanup { |