b8a5e200c95d8c32cb9c97b2f6824ebce8f23023
[occt.git] / tests / bugs / modalg_6 / bug27269
1 puts "============"
2 puts "OCC27269"
3 puts "============"
4 puts ""
5 ###############################
6 ## Intersection algorithm produces null-length curve
7 ###############################
8
9
10 restore [locate_data_file bug27267_cmpd.brep] a
11 explode a f
12
13 #############################
14 set log [bopcurves a_1 a_7 -2d]
15 #############################
16
17 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
18
19 for {set i 1} {$i <= ${NbCurv}} {incr i} {
20   bounds c_$i U1 U2
21   
22   dump U1 U2
23   
24   if {[dval U2-U1] < 1.0e-20} {
25     puts "Error: Wrong curve's range!"
26   }
27   
28   set le [length c_$i]
29   regexp "The length c_$i is +(\[-0-9.+eE\]+)" ${le} full ll
30   
31   if { $ll < 1.0e-7 } {
32     puts "Error: Curve c_$i is too small!"
33   }
34 }
35
36