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 }