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"
}