summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorgriffin <brian_griffin@mentor.com>2017-05-28 16:06:29 (GMT)
committergriffin <brian_griffin@mentor.com>2017-05-28 16:06:29 (GMT)
commit7ad256b22a418232031230af7c60a0e21e979df6 (patch)
treeac04ded8d534ad8b6c50900797f21f495bafdc63 /tests
parent7aab6826d8c0c63f62a1d8a8c42d514d5559e420 (diff)
downloadtcl-7ad256b22a418232031230af7c60a0e21e979df6.zip
tcl-7ad256b22a418232031230af7c60a0e21e979df6.tar.gz
tcl-7ad256b22a418232031230af7c60a0e21e979df6.tar.bz2
0d in LinkVar
Diffstat (limited to 'tests')
-rw-r--r--tests/link.test21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/link.test b/tests/link.test
index 6bff356..a12759d 100644
--- a/tests/link.test
+++ b/tests/link.test
@@ -173,6 +173,27 @@ test link-2.9 {writing C variables from Tcl} -constraints {testlink} -setup {
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 -60.0 0 | 0 5000e 0 0 0 0 0 0 0 0 0 0 -60.00e+ 0}
+test link-2.10 {writing C variables from Tcl} -constraints {testlink} -setup {
+ testlink delete
+} -body {
+ testlink set 43 1.21 4 - 56785678 64 250 30000 60000 0xbaadbeef 12321 32123 3.25 1231231234
+ testlink create 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+ set int "0x"
+ set real "0b"
+ set bool 0
+ set string "0"
+ set wide "0D"
+ set char "0X"
+ set uchar "0B"
+ set short "0D"
+ set ushort "0x"
+ set uint "0b"
+ set long "0d"
+ set ulong "0X"
+ set float "0B"
+ set uwide "0D"
+ concat [testlink get] | $int $real $bool $string $wide $char $uchar $short $ushort $uint $long $ulong $float $uwide
+} -result {0 0.0 0 0 0 0 0 0 0 0 0 0 0.0 0 | 0x 0b 0 0 0D 0X 0B 0D 0x 0b 0d 0X 0B 0D}
test link-3.1 {read-only variables} -constraints {testlink} -setup {
testlink delete