diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2019-04-05 18:37:44 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2019-04-05 18:37:44 (GMT) |
| commit | e0b6a53069be24ac23e8ec3d5390613041d28c44 (patch) | |
| tree | a7a9ff0eb1d07fe8f79801b24ecdf32d989aab89 /tests/link.test | |
| parent | 52458f51bc8ece66942a74305efc875822b1d601 (diff) | |
| download | tcl-e0b6a53069be24ac23e8ec3d5390613041d28c44.zip tcl-e0b6a53069be24ac23e8ec3d5390613041d28c44.tar.gz tcl-e0b6a53069be24ac23e8ec3d5390613041d28c44.tar.bz2 | |
More efficient version (after feedback from KBK). Better test too.
Diffstat (limited to 'tests/link.test')
| -rw-r--r-- | tests/link.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/link.test b/tests/link.test index e04059f..4c4cf99 100644 --- a/tests/link.test +++ b/tests/link.test @@ -781,10 +781,11 @@ test link-20.1 {linkarray unsigned wide} -setup { lappend mylist [set ::my(var) 120] catch {set ::my(var) 1e33} msg lappend mylist $msg + lappend mylist [set ::my(var) 0xbabed00dbabed00d] } -cleanup { testlinkarray remove ::my(var) unset -nocomplain my -} -result {{can't set "::my(var)": variable must have unsigned wide int value} 120 {can't set "::my(var)": variable must have unsigned wide int value}} +} -result {{can't set "::my(var)": variable must have unsigned wide int value} 120 {can't set "::my(var)": variable must have unsigned wide int value} 0xbabed00dbabed00d} test link-20.2 {linkarray unsigned wide} -body { testlinkarray create uwide 1 ::my(var) set ::my(var) 120 |