-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
- puts "TODO OCC12345 ALL: An exception was caught"
- puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
- puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-}
puts "========================"
puts "BUC60823"
puts "========================"
vsetdispmode result 1
vfit
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 17618 || $nod != 11153 } {
- puts "Shading problem may be, nb tri & nod are changed"
-}
-
-set 2dviewer 0
+checktrinfo result -tri 2788 -nod 2648
+checkview -display result -2d -path ${imagedir}/${test_image}.png