tests/bugs/modalg_2/bug300

   1
   2 puts "================"
   3 puts "OCC300"
   4 puts "================"
   5 puts ""
   6 #################################################
   7 ## Compsolids have no volume. #2432(SAM1380)
   8 #################################################
   9
  10 restore [locate_data_file OCC300.brep] result
  11
  12 set che [checkshape result]
  13 if { [regexp {Faulty} $che] == 1 } {
  14     puts "Faulty OCC300: Source shape is invalid. It was detected by Checkshape command"
  15     puts "Body of the script was NOT executed"
  16 } else {
  17     puts "OCC300 OK: Source shape is valid"
  18
  19     set props [vprops result]
  20     set list [split ${props}]
  21     set listLength [llength ${list}]
  22     if { ${listLength} < 5 } {
  23         puts "OCC300 - Error : listLength= ${listLength}"
  24     }
  25
  26     regexp {Mass +: +([-0-9.+eE]+)} $props full volume
  27     set maxdelta 0.000001
  28     if { ${volume} < ${maxdelta} } then {
  29         puts "OCC300 - Error "
  30     } else {
  31         puts "OCC300 - OK"
  32     }
  33     puts "Volume = ${volume}"
  34 }
  35
  36 checkprops result -s 750
  37 checkview -display result -2d -path ${imagedir}/${test_image}.png