From 9c026800c2bddb5da6880c89dc04e0ede1db2fea Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 8 Sep 2005 13:46:54 +0000
Subject: A bit more fixing...

---
 tests/link.test | 32 +++++++++++++++++---------------
 1 file 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}
-- 
cgit v0.12