tests/bugs/modalg_2/bug323

   1
   2 puts "================"
   3 puts "OCC323"
   4 puts "OCC229"
   5 puts "================"
   6 puts ""
   7
   8 restore [locate_data_file OCC323.brep] f
   9 explode f
  10
  11 decho off
  12 set che [checkshape f_1]
  13 decho on
  14
  15 if { [regexp {Faulty} $che ] == 1 } {
  16     puts "Warning OCC323 (shape1): Source shape is NOT correct. It was detected by Checkshape command"
  17 } else {
  18     puts "OCC323 OK (shape1): Source shape is valid"
  19 }
  20
  21 decho off
  22 set che [checkshape f_2]
  23 decho on
  24
  25 if { [regexp {Faulty} $che ] == 1 } {
  26     puts "Warning OCC323 (shape2): Source shape is NOT correct. It was detected by Checkshape command"
  27 } else {
  28     puts "OCC323 OK (shape2): Source shape is valid"
  29 }
  30
  31 bsection r f_1 f_2
  32 checkshape r
  33 puts [checksection r]
  34
  35 decho off
  36 set che [checkshape f_3]
  37 decho on
  38
  39 if { [regexp {Faulty} $che ] == 1 } {
  40     puts "Warning OCC323 (shape3): Source shape is invalid. It was detected by Checkshape command"
  41 } else {
  42     puts "OCC323 OK (shape3): Source shape is valid"
  43 }
  44
  45 bsection result f_1 f_3
  46
  47 set length 1
  48 set 2dviewer 0
  49
  50
  51