tests/bugs/moddata/bug252_1

   1
   2 puts "================"
   3 puts "OCC252"
   4 puts "================"
   5 puts ""
   6
   7 pload QAcommands
   8
   9 restore [locate_data_file OCC252.brep] a
  10
  11 puts [checkshape a]
  12
  13 explode a w
  14
  15 OCC252 result a_466 a 0
  16
  17 regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
  18
  19 if { ${len} <= 0 } {
  20    puts "Error : OCC252"
  21 }
  22
  23 set 2dviewer 0