Files
ANSLibs/swig-4.3.0/Examples/test-suite/tcl/enum_thorough_runme.tcl

10 lines
425 B
Tcl
Raw Normal View History

if [ catch { load ./enum_thorough[info sharedlibextension] Enum_thorough} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
if { [speedTest0 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest0 failed" }
if { [speedTest4 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest4 failed" }
if { [speedTest5 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest5 failed" }