tests/bugs/moddata_1/bug157

   1 pload QAcommands
   2
   3 puts "================"
   4 puts "OCC157"
   5 puts "================"
   6 puts ""
   7
   8 restore [locate_data_file OCC157.brep] wire
   9 checkshape wire
  10
  11 set Tolerance 100.
  12 set info_result [OCC157 result wire ${Tolerance}]
  13
  14 set ll [llength ${info_result}]
  15 if {${ll} < 2} {
  16     puts "length = ${ll}"
  17     puts "OCC157: Error"
  18 } else {
  19     if { [regexp {OK} $info_result] } {
  20         puts "OCC157: OK"
  21     } else {
  22         puts "OCC157: Error"
  23     }
  24 }
  25 checkprops result -s 2.11095e+06
  26 checkview -display result -2d -path ${imagedir}/${test_image}.png
  27