0029807: [Regression to 7.0.0] Impossible to cut cone from prism
[occt.git] / tests / bugs / modalg_6 / bug26609
1 puts "============"
2 puts "OCC26609"
3 puts "============"
4 puts ""
5 ############################################################################
6 # Wrong result obtained by solid classifier algorithm.
7 ############################################################################
8
9 restore [locate_data_file bug26609_p.draw] p
10 restore [locate_data_file bug26609_z.brep] z
11
12 set cls1 [bclassify z p]
13 if { [regexp {OUT} $cls1] } {
14     puts "Error : Wrong result obtained by solid classifier algorithm"
15 } else {
16     puts "OK : Good result obtained by solid classifier algorithm"
17 }
18
19 smallview
20 fit
21 checkview -screenshot -2d -path ${imagedir}/${test_image}.png