tests/bugs/modalg_2/bug405

   1 pload QAcommands
   2
   3 puts "================"
   4 puts "OCC405"
   5 puts "OCC435"
   6 puts "SAM1296"
   7 puts "================"
   8 puts ""
   9
  10 restore [locate_data_file OCC395-1.brep] e1
  11 restore [locate_data_file OCC405-2.brep] e2
  12
  13 checkshape e1
  14 checkshape e2
  15
  16 OCC405 result e1 e2
  17
  18 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
  19
  20 if { $num == 2 } {
  21     puts "OCC405 OK : Result shape is CORRECT !!! "
  22 } else {
  23     puts " Faulty OCC405: Result shape is INcorrect !!! "
  24 }
  25
  26 checkprops result -l 17.5348
  27 checkshape result
  28 checkview -display result -2d -path ${imagedir}/${test_image}.png