5 ###############################
6 ## Wire of BSplines fails bopcheck
7 ###############################
9 restore [locate_data_file bug25693_path3039.brep] path3039
11 prism Extrude_path3039 path3039 0 0 50
13 set log1 [string trim [bopcheck path3039]]
14 if {$log1 != "This shape seems to be OK."} {
15 puts "Error : bad shape"
18 set log2 [string trim [bopcheck Extrude_path3039]]
19 if {$log2 != "This shape seems to be OK."} {
20 puts "Error : Wire of BSplines fails bopcheck"
23 checkview -display path3039 -2d -path ${imagedir}/${test_image}-path3039-2d.png
24 checkview -display Extrude_path3039 -2d -path ${imagedir}/${test_image}-Extrude_path3039-2d.png