tests/bugs/modalg_5/bug25597

   1 puts "============"
   2 puts "OCC25597"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Invalid curve on surface in the result of General Fuse operation
   7 ######################################################
   8
   9 restore [locate_data_file bug25597_c1ext.brep] b1
  10 restore [locate_data_file bug25597_c2ext.brep] b2
  11
  12 bclearobjects
  13 bcleartools
  14 baddobjects b1
  15 baddtools b2
  16 bfillds -s
  17 bbuild r
  18
  19 set info [bopargcheck r]
  20
  21 if { [regexp "to be valid for BOP" ${info}] == 1 } {
  22     puts "OK : Created curve is correct"
  23 } else {
  24     puts "Error : Created curve is not correct"
  25 }