tests/bugs/moddata_1/bug1048

   1 puts "================"
   2 puts "OCC1048"
   3 puts "================"
   4 puts ""
   5
   6 pload QAcommands
   7
   8 restore [locate_data_file OCC1048.brep] result
   9
  10 set list [OCC1048 result]
  11
  12 set NBTRIANGLES 0
  13 regexp {Info: +Number +of +triangles += +([-0-9.+eE]+)} $list full NBTRIANGLES
  14
  15 if { ${NBTRIANGLES} > 0 } {
  16     puts "OCC1048: OK"
  17 } else {
  18     puts "OCC1048: Error"
  19 }
  20
  21 set 2dviewer 0
  22
  23