7 set filepath [locate_data_file OCC36.igs]
8 if [catch { igesbrep $filepath a * } res] {
9 puts "Error OCC36: here is reading problem"
11 puts "Reading OCC36 OK"
18 set q2 [ dchrono h2 show ]
19 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
22 puts "Elapsed time is more then 30 seconds - Faulty"
24 puts "Elapsed time is less then 30 seconds - OK"
27 checkmaxtol result -ref 0.96087447225733291
28 checknbshapes result -shell 13
29 checkfreebounds result 1247
32 checkview -display result -2d -path ${imagedir}/${test_image}.png