tests/bugs/modalg/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 set square 3141.59
  25 set 2dviewer 0
  26
  27
  28