0014531: Boolean Operation Algorithm fails
[occt.git] / tests / bugs / moddata_1 / bug22723
1 puts "============"
2 puts "OCC22723"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Wrong intersection curve for the case of intersection between cylinder and plane
7 #######################################################################
8
9 set BugNumber OCC22723 
10
11 restore [locate_data_file bug22723_fz44.brep] b1 
12 restore [locate_data_file bug22723_fz7.brep] b2 
13 mksurface s1 b1
14 mksurface s2 b2
15 intersect result s1 s2
16
17 regexp {Parameters : ([-0-9.+eE]+) ([-0-9.+eE]+)} [dump result] full a1 a2
18 set status 0
19
20 if { ${a1}>=0 } {
21     if { ${a2}<6.29 } {
22         set status 1
23     }
24 }
25
26 if { ${status}==1 } {
27     puts "OK ${BugNumber}"
28 } else {
29     puts "Faulty ${BugNumber}"
30 }
31
32 checkview -display result -2d -path ${imagedir}/${test_image}.png