restore [locate_data_file bug23952_s2.draw] b
set NbLines 6
-set info [OCC23952intersect $NbLines a b]
-
-if { [regexp "theNbSol: OK" $info] != 1 } {
- puts "Error : Number of intersections is incorrect"
-} else {
- puts "OK: Number of intersections is correct"
-}
-
+OCC23952intersect $NbLines a b