summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-09-08 13:46:54 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-09-08 13:46:54 (GMT)
commit9c026800c2bddb5da6880c89dc04e0ede1db2fea (patch)
treefc2f81bd3e16f23d094e101345c5311f8522a064
parent76ed12198f767f4882f85b41d901fc996cbddd57 (diff)
downloadtcl-9c026800c2bddb5da6880c89dc04e0ede1db2fea.zip
tcl-9c026800c2bddb5da6880c89dc04e0ede1db2fea.tar.gz
tcl-9c026800c2bddb5da6880c89dc04e0ede1db2fea.tar.bz2
A bit more fixing...
-rw-r--r--tests/link.test32
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}