1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
puts "TODO ?OCC24156 MacOS: \\*\\* Exception \\*\\*.*"
puts "TODO ?OCC24156 MacOS: An exception was caught"
puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
puts "TODO OCC24156 MacOS: \\*\\*\\* Abort"
puts "TODO OCC24156 MacOS: ... The exception is"
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] a
set NbUPoles 18
set info [OCC23952sweep $NbUPoles a]
if { [regexp "theTargetNbUPoles: OK" $info] != 1 } {
puts "Error : Number of UPoles is incorrect"
} else {
puts "OK: Number of UPoles is correct"
}
|
