0030082: Intersection algorithm returns curve with big tolerance value
[occt.git] / tests / bugs / modalg_7 / bug30082_1
1 puts "========"
2 puts "0030082: Intersection algorithm returns curve with big tolerance value"
3 puts "========"
4 puts ""
5
6 foreach a [directory c_*] { unset $a }
7
8 brestore [locate_data_file bug27928_b1.brep] b1
9 brestore [locate_data_file bug27928_b2.brep] b2
10 explode b1 f
11 explode b2 f
12
13 if { [regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b1_1 b2_2 -2d] full Toler NbCurv ] } {
14   # Before the fix, the tolerance was 0.0010828835451753697
15   checkreal Tolerance $Toler 6.5e-7 0.0 0.1
16
17   if {$NbCurv != 1} {
18     puts "Error: 1 curve is expected but $NbCurv curves are found."
19   }
20 } else {
21   puts "Error: Intersection result is empty"
22 }
23
24 smallview
25 don c_*
26 fit
27 checkview -screenshot -2d -path ${imagedir}/${test_image}.png