tests/bugs/modalg_2/bug446_3

   1
   2 puts "========"
   3 puts "OCC446"
   4 puts "OCC447"
   5 puts "(case 3)"
   6 puts "========"
   7 puts ""
   8 ######################################
   9 ## As result I have fail on shape that it is not closed.
  10 ######################################
  11
  12 restore [locate_data_file OCC446c.brep] result
  13
  14 set che [checkshape result]
  15 if { [regexp {Faulty} $che ] == 1} {
  16     puts "Faulty OCC446 (case 3): Source shape is NotClosed"
  17 } else {
  18     puts "OCC446 OK (case 3): Source shape is Closed"
  19 }
  20 set square 13694.6
  21 set 2dviewer 0
  22
  23