5 ######################################################
6 # Invalid curve on surface in the result of General Fuse operation
7 ######################################################
9 restore [locate_data_file bug25597_c1ext.brep] b1
10 restore [locate_data_file bug25597_c2ext.brep] b2
19 set info [bopargcheck r]
21 if { [regexp "to be valid for BOP" ${info}] == 1 } {
22 puts "OK : Created curve is correct"
24 puts "Error : Created curve is not correct"