+++ /dev/null
-puts "================"
-puts "OCC23952"
-puts "================"
-puts ""
-###########################################################################################
-# Improving thread-safety of intersections, approximations and other modeling algorithms
-###########################################################################################
-
-pload QAcommands
-restore [locate_data_file bug23952_trim-torus.draw] res
-
-set NbUPoles 18
-set info [OCC23952sweep $NbUPoles res]
-
-if { [regexp "theTargetNbUPoles: OK" $info] != 1 } {
- puts "Error : Number of UPoles is incorrect"
-} else {
- puts "OK: Number of UPoles is correct"
-}
+++ /dev/null
-puts "================"
-puts "OCC23952"
-puts "================"
-puts ""
-###########################################################################################
-# Improving thread-safety of intersections, approximations and other modeling algorithms
-###########################################################################################
-
-pload QAcommands
-restore [locate_data_file bug23952_s1.draw] a
-restore [locate_data_file bug23952_s2.draw] b
-
-set NbLines 5
-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"
-}
-
set expl [explode result]
-set length [llength $expl]
-puts "Result is $length section edge"
+set ll [llength $expl]
+puts "Result is $ll section edge"
-if {$length > 0} {
+if {$ll > 0} {
puts "${BugNumber} OK"
} else {
puts "Faulty ${BugNumber}"