summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-09-08 14:13:01 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-09-08 14:13:01 (GMT)
commit82949e5538570fb6bd57f5fb26f6e4fb13be9610 (patch)
tree55c5576f372d079ad704862fcf2db342f80cdac8
parent6179dd85d3fb2cc41c3b5a1af1018de7d79f97bb (diff)
downloadtcl-82949e5538570fb6bd57f5fb26f6e4fb13be9610.zip
tcl-82949e5538570fb6bd57f5fb26f6e4fb13be9610.tar.gz
tcl-82949e5538570fb6bd57f5fb26f6e4fb13be9610.tar.bz2
Final fixes
-rw-r--r--tests/link.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/link.test b/tests/link.test
index 8bbc029..d6f3196 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.12 2005/09/08 14:09:06 dkf Exp $
+# RCS: @(#) $Id: link.test,v 1.13 2005/09/08 14:13:01 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -56,7 +56,7 @@ test link-2.1 {writing C variables from Tcl} {testlink} {
set float 1.0987654321
set uwide 357357357357
concat [testlink get] | $int $real $bool $string $wide $char $uchar $short $ushort $uint $long $ulong $float $uwide
-} {465 -10.5 1 abcdef 135135 79 161 8000 40000 -1073628482 34543 567890 1.0987653732299805 357357357357 | 00721 -10.5 true abcdef 135135 79 161 8000 40000 -1073628482 34543 567890 1.0987653732299805 357357357357}
+} {465 -10.5 1 abcdef 135135 79 161 8000 40000 -1073628482 34543 567890 1.0987653732299805 357357357357 | 00721 -10.5 true abcdef 135135 79 161 8000 40000 0xc001babe 34543 567890 1.0987653732299805 357357357357}
test link-2.2 {writing bad values into variables} {testlink} {
testlink delete
testlink set 43 1.23 4 - 56785678 64 250 30000 60000 0xbeefbabe 12321 32123 3.25 1231231234
@@ -152,7 +152,7 @@ test link-5.2 {unlinking variables} {testlink} {
testlink delete
testlink set 25 14.7 7 - 999999 65 251 30001 60001 0xbabebeef 12322 32124 3.125 12312312340
list $int $real $bool $string $wide $char $uchar $short $ushort $uint $long $ulong $float $uwide
-} {-6 -2.25 0 stringValue 97531 64 250 30000 60000 0xbeefbabe 12321 32123 3.25 1231231234}
+} {-6 -2.25 0 stringValue 97531 64 250 30000 60000 3203381950 12321 32123 3.25 1231231234}
test link-6.1 {errors in setting up link} {testlink} {
testlink delete