tests/bugs/modalg_2/bug330

   1 puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly"
   2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   3
   4 puts "========================"
   5 puts " OCC330 "
   6 puts "========================"
   7 puts ""
   8 ##################################################
   9 ## checkshape command consider the shape with incorrect order of tolerance as valid.
  10 ##################################################
  11
  12 restore [locate_data_file OCC330.brep] result
  13
  14 decho off
  15 set che [checkshape result]
  16 decho on
  17
  18 if { [regexp {Faulty} $che ] != 1 } {
  19     puts "Faulty OCC330: Checkshape command works wrongly"
  20 } else {
  21     puts "OCC330 OK : Checkshape command works properly"
  22 }
  23
  24 set square 0
  25 set 2dviewer 0