summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-12-23 12:02:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-12-23 12:02:08 (GMT)
commit2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4 (patch)
tree904a4d83c2067dc823950904196c34b8dd573b79 /tests
parentdbd049268f498307121d7fb7a27dafe23d856637 (diff)
downloadtcl-2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4.zip
tcl-2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4.tar.gz
tcl-2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4.tar.bz2
Little tweak: Decimal dot's should be allowed as well as first part. Test-case for that as well.
Diffstat (limited to 'tests')
-rw-r--r--tests/link.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/link.test b/tests/link.test
index 1e29ac5..7bde482 100644
--- a/tests/link.test
+++ b/tests/link.test
@@ -158,10 +158,10 @@ test link-2.8 {writing C variables from Tcl} -constraints {testlink} -setup {
set uint 0
set long 0
set ulong 0
- set float -6000e+
+ set float -60.00e+
set uwide 0
concat [testlink get] | $int $real $bool $string $wide $char $uchar $short $ushort $uint $long $ulong $float $uwide
-} -result {0 5000.0 0 0 0 0 0 0 0 0 0 0 -6000.0 0 | 0 5000e 0 0 0 0 0 0 0 0 0 0 -6000e+ 0}
+} -result {0 5000.0 0 0 0 0 0 0 0 0 0 0 -60.0 0 | 0 5000e 0 0 0 0 0 0 0 0 0 0 -60.00e+ 0}
test link-3.1 {read-only variables} {testlink} {
testlink delete