tests/bugs/modalg_2/bug234

   1 puts "========"
   2 puts "OCC234"
   3 puts "========"
   4
   5 ######################################################################
   6 ##I believe that attached shape is OK but checkshape finds out some problems (Bad Orientation of Subshape).
   7 ######################################################################
   8
   9 restore [locate_data_file OCC234.brep] result
  10
  11 set che [checkshape result r]
  12 if { [regexp {OK} $che] != 1 } {
  13     puts "Faulty OCC234 (checkshape) : Checkshape command works wrongly"
  14 } else {
  15     puts "OCC234 OK (checkshape) : Checkshape command works properly"
  16 }
  17
  18 set che [checkshape result]
  19 if { [regexp {Faulty} $che] == 1 } {
  20     puts "Faulty OCC234 (checkshape) : Checkshape command works wrongly"
  21 } else {
  22     puts "OCC234 OK (checkshape) : Checkshape command works properly"
  23 }
  24
  25 set square 2464.17
  26 set 2dviewer 0