tests/bugs/modalg_6/bug27998_3

   1 puts "============"
   2 puts "OCC27998"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Self-intersection is not detected
   7 ######################################################
   8
   9 restore [locate_data_file bug20807_coil.brep] cc
  10 explode cc e
  11 mkcurve cc cc_1
  12 trim tc cc 0 6
  13 mkedge ee tc
  14 prism a ee 0 0 50
  15 donly a
  16
  17 set info1 [bopcheck a 9]
  18
  19 if { [regexp "F/F: x0 x0" $info1] != 1 } {
  20     puts "Error : bopcheck a works wrong"
  21 } else {
  22     puts "OK: bopcheck a works properly"
  23 }