1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
source [file dirname [info script]]/testing.tcl
# Test number detection
set good_testcases {
0 0
1 1
8 8
00 0
07 7
08 8
0x5 5
0x0 0
0x00 0
-0x5 -5
0b111 7
-0b111 -7
-0B101 -5
0o7 7
}
set i 0
foreach {str exp} $good_testcases {
test expr-base-1.[incr i] "expr conversion" [list expr [list $str]] $exp
}
set bad_testcases {
{0x + 1}
x
0xx5
0x-5
{0x 5}
{0o8 + 1}
}
set i 0
foreach str $bad_testcases {
test expr-base-2.[incr i] "expr conversion failure" -returnCodes error -body [list expr $str] -match glob -result "*"
}
testreport
|
