1 puts "================"
3 puts "================"
5 ###########################################################################################
6 # Improving thread-safety of intersections, approximations and other modeling algorithms
7 ###########################################################################################
10 restore [locate_data_file bug23952_s1.draw] a
11 restore [locate_data_file bug23952_s2.draw] b
14 set info [OCC23952intersect $NbLines a b]
16 if { [regexp "theNbSol: OK" $info] != 1 } {
17 puts "Error : Number of intersections is incorrect"
19 puts "OK: Number of intersections is correct"