diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/link.test | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/tests/link.test b/tests/link.test index 28ab6aa..52d5f88 100644 --- a/tests/link.test +++ b/tests/link.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: link.test,v 1.8 2005/09/08 13:42:45 dkf Exp $ +# RCS: @(#) $Id: link.test,v 1.9 2005/09/08 13:46:54 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -76,7 +76,7 @@ test link-2.5 {writing bad values into variables} {testlink} { test link-3.1 {read-only variables} {testlink} { testlink delete testlink set 43 1.23 4 - 56785678 - testlink create 0 1 1 0 0 + testlink create 0 1 1 0 0 0 0 0 0 0 0 0 0 0 list [catch {set int 4} msg] $msg $int \ [catch {set real 10.6} msg] $msg $real \ [catch {set bool no} msg] $msg $bool \ @@ -86,7 +86,7 @@ test link-3.1 {read-only variables} {testlink} { test link-3.2 {read-only variables} {testlink} { testlink delete testlink set 43 1.23 4 - 56785678 - testlink create 1 0 0 1 1 + testlink create 1 0 0 1 1 0 0 0 0 0 0 0 0 0 list [catch {set int 4} msg] $msg $int \ [catch {set real 10.6} msg] $msg $real \ [catch {set bool no} msg] $msg $bool \ @@ -150,8 +150,8 @@ test link-7.1 {access to linked variables via upvar} {testlink} { unset y } testlink delete - testlink create 1 0 0 0 0 - testlink set 14 {} {} {} {} + testlink create 1 0 0 0 0 0 0 0 0 0 0 0 0 0 + testlink set 14 {} {} {} {} {} {} {} {} {} {} {} {} {} x list [catch {set int} msg] $msg } {0 14} @@ -162,9 +162,9 @@ test link-7.2 {access to linked variables via upvar} {testlink} { } testlink delete testlink create 1 0 0 0 0 0 0 0 0 0 0 0 0 0 - testlink set 0 {} {} {} {} + testlink set 0 {} {} {} {} {} {} {} {} {} {} {} {} {} set int - testlink set 23 {} {} {} {} + testlink set 23 {} {} {} {} {} {} {} {} {} {} {} {} {} x list [x] $int } {23 23} @@ -175,7 +175,7 @@ test link-7.3 {access to linked variables via upvar} {testlink} { } testlink delete testlink create 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - testlink set 11 {} {} {} {} + testlink set 11 {} {} {} {} {} {} {} {} {} {} {} {} {} list [catch x msg] $msg $int } {1 {can't set "y": linked variable is read-only} 11} test link-7.4 {access to linked variables via upvar} {testlink} { @@ -185,7 +185,7 @@ test link-7.4 {access to linked variables via upvar} {testlink} { } testlink delete testlink create 1 1 1 1 1 1 1 1 1 1 1 1 1 1 - testlink set -4 {} {} {} {} + testlink set -4 {} {} {} {} {} {} {} {} {} {} {} {} {} list [catch x msg] $msg $int } {1 {can't set "y": variable must have integer value} -4} test link-7.5 {access to linked variables via upvar} {testlink} { @@ -195,7 +195,7 @@ test link-7.5 {access to linked variables via upvar} {testlink} { } testlink delete testlink create 1 1 1 1 1 1 1 1 1 1 1 1 1 1 - testlink set -4 16.75 {} {} {} + testlink set -4 16.75 {} {} {} {} {} {} {} {} {} {} {} {} list [catch x msg] $msg $real } {1 {can't set "y": variable must have real value} 16.75} test link-7.6 {access to linked variables via upvar} {testlink} { @@ -205,7 +205,7 @@ test link-7.6 {access to linked variables via upvar} {testlink} { } testlink delete testlink create 1 1 1 1 1 1 1 1 1 1 1 1 1 1 - testlink set -4 16.3 1 {} {} + testlink set -4 16.3 1 {} {} {} {} {} {} {} {} {} {} {} list [catch x msg] $msg $bool } {1 {can't set "y": variable must have boolean value} 1} test link-7.7 {access to linked variables via upvar} {testlink} { @@ -215,7 +215,7 @@ test link-7.7 {access to linked variables via upvar} {testlink} { } testlink delete testlink create 1 1 1 1 1 1 1 1 1 1 1 1 1 1 - testlink set -4 16.3 1 {} 778899 + testlink set -4 16.3 1 {} 778899 {} {} {} {} {} {} {} {} {} list [catch x msg] $msg $wide } {1 {can't set "y": variable must have integer value} 778899} @@ -247,11 +247,13 @@ test link-8.2 {Tcl_UpdateLinkedVar procedure} {testlink} { set x } {} test link-8.3 {Tcl_UpdateLinkedVar procedure, read-only variable} {testlink} { - testlink create 0 0 0 0 0 - list [catch {testlink update 47 {} {} {} {}} msg] $msg $int + testlink create 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + list [catch { + testlink update 47 {} {} {} {} {} {} {} {} {} {} {} {} {} + } msg] $msg $int } {0 {} 47} -catch {testlink set 0 0 0 - 0} +catch {testlink set 0 0 0 - 0 0 0 0 0 0 0 0 0 0} catch {testlink delete} foreach i {int real bool string wide} { catch {unset $i} |