tests/bugs/modalg_2/bug446_1

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
   2 puts "TODO OCC12345 ALL: Faulty OCC446"
   3 ###puts "TODO OCC12345 ALL: Error : The square of result shape is"
   4
   5 puts "========"
   6 puts "OCC446"
   7 puts "OCC447"
   8 puts "(case 1)"
   9 puts "========"
  10 puts ""
  11 ######################################
  12 ## As result I have fail on shape that it is not closed.
  13 ######################################
  14
  15 restore [locate_data_file OCC446a.brep] result
  16
  17 set che [checkshape result]
  18 if { [regexp {Faulty} $che ] == 1 } {
  19     puts "Faulty OCC446 (case 1): Source shape is NotClosed"
  20 } else {
  21     puts "OCC446 OK (case 1): Source shape is Closed"
  22 }
  23 set square 108.845
  24 set 2dviewer 0
  25