diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-09-08 14:14:21 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-09-08 14:14:21 (GMT) |
| commit | 8edbe2e47e1209c5af81525c10cf38d303a796c5 (patch) | |
| tree | 50f6958867991085b504288a094624ea41820cb0 | |
| parent | 82949e5538570fb6bd57f5fb26f6e4fb13be9610 (diff) | |
| download | tcl-8edbe2e47e1209c5af81525c10cf38d303a796c5.zip tcl-8edbe2e47e1209c5af81525c10cf38d303a796c5.tar.gz tcl-8edbe2e47e1209c5af81525c10cf38d303a796c5.tar.bz2 | |
D'oh, missed a spot
| -rw-r--r-- | tests/link.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/link.test b/tests/link.test index d6f3196..84fa154 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.13 2005/09/08 14:13:01 dkf Exp $ +# RCS: @(#) $Id: link.test,v 1.14 2005/09/08 14:14:21 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 0xc001babe 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.0987654321 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 |