tests/bugs/modalg_2/bug22968

   1 puts "================"
   2 puts "OCC22968"
   3 puts "================"
   4 puts ""
   5 ######################################################################################
   6 # RebuildShape exchanges 2d-curves
   7 ######################################################################################
   8
   9 set BugNumber OCC22968
  10
  11 pload XDE
  12
  13 restore [locate_data_file OCC22968-cylface.brep] a
  14 checkshape a f
  15 removeloc result a
  16 set info [ checkshape result f ]
  17
  18 if { [regexp {The Shape result looks OK} $info] } {
  19    puts "OK ${BugNumber}"
  20 } else {
  21    puts "Faulty ${BugNumber}"
  22 }
  23
  24 checkprops result -s 3141.59
  25 checkshape result
  26 checkview -display result -2d -path ${imagedir}/${test_image}.png
  27
  28
  29