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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
if [ catch { load ./bools[info sharedlibextension] bools} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
# bool constant check
if {$constbool != 0} {
puts stderr "Runtime test 1 failed"
exit 1
}
# bool variables check
if {$bool1 != 1} {
puts stderr "Runtime test 2 failed"
exit 1
}
if {$bool2 != 0} {
puts stderr "Runtime test 3 failed"
exit 1
}
if { [ value $pbool ] != $bool1} {
puts stderr "Runtime test 4 failed"
exit 1
}
if { [ value $rbool ] != $bool2} {
puts stderr "Runtime test 5 failed"
exit 1
}
if { [ value $const_pbool ] != $bool1} {
puts stderr "Runtime test 6 failed"
exit 1
}
if { $const_rbool != $bool2} {
puts stderr "Runtime test 7 failed"
exit 1
}
# bool functions check
if { [ bo 0 ] != 0} {
puts stderr "Runtime test 8 failed"
exit 1
}
if { [ bo 1 ] != 1} {
puts stderr "Runtime test 9 failed"
exit 1
}
if { [ value [ rbo $rbool ] ] != [ value $rbool ]} {
puts stderr "Runtime test 10 failed"
exit 1
}
if { [ value [ pbo $pbool ] ] != [ value $pbool ]} {
puts stderr "Runtime test 11 failed"
exit 1
}
if { [ const_rbo $const_rbool ] != $const_rbool } {
puts stderr "Runtime test 12 failed"
exit 1
}
if { [ value [ const_pbo $const_pbool ] ] != [ value $const_pbool ]} {
puts stderr "Runtime test 13 failed"
exit 1
}
|
