diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 12:02:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 12:02:08 (GMT) |
| commit | 716453aae667c6e2eac49593e573174349be2d65 (patch) | |
| tree | 904a4d83c2067dc823950904196c34b8dd573b79 /tests/link.test | |
| parent | c7da596da276b6402ac5db54a47902538dd2a221 (diff) | |
| download | tcl-716453aae667c6e2eac49593e573174349be2d65.zip tcl-716453aae667c6e2eac49593e573174349be2d65.tar.gz tcl-716453aae667c6e2eac49593e573174349be2d65.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/link.test')
| -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 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 |