0024612: Wrong pcurve of the section curve
[occt.git] / tests / bugs / modalg_5 / bug23952_2
1 puts "================"
2 puts "OCC23952"
3 puts "================"
4 puts ""
5 ###########################################################################################
6 # Improving thread-safety of intersections, approximations and other modeling algorithms
7 ###########################################################################################
8
9 pload QAcommands
10 restore [locate_data_file bug23952_s1.draw] a
11 restore [locate_data_file bug23952_s2.draw] b
12
13 set NbLines 6
14 set info [OCC23952intersect $NbLines a b]
15
16 if { [regexp "theNbSol: OK" $info] != 1 } {
17     puts "Error : Number of intersections is incorrect"
18 } else {
19     puts "OK: Number of intersections is correct"
20 }
21