puts $t
set w [lindex $t 1]
if {"$w" == "SHELL"} {
- catch {freebounds $result -0.01}
+ freebounds $result -0.01
set s [explode result_c e]
puts $s
set index [ llength $s ]
- if { $index != 0 } {
+ #nbFreeEdges is set to empty only in cases of unstable work of sewing (see #24591).
+ if { [string compare "$nbFreeEdges" ""] == 0 || $index != $nbFreeEdges } {
puts "Error : Number of free edges is $index"
}
- puts "Number of faulties for initial shape is $nb_a."
- puts "Number of faulties for result shape is $nb_r."
+ puts "Number of faults for the initial shape is $nb_a."
+ puts "Number of faults for the resulting shape is $nb_r."
#if nb_f is empty then it is instaility.
if { [string compare "$nb_f" ""] == 0 || $nb_f > 0 } {
if {[array get env os_type] != ""} {
set os $env(os_type)
}
- puts "TODO #23150 $os: Error : Number of faulties is $nb_f"
+ puts "TODO #23150 $os: Error : Number of faults is $nb_f"
}
if { $nb_r > $nb_a } {
- puts "Error : Number of faulties is $nb_r"
+ puts "Error : Number of faults is $nb_r"
}
} else {
puts "Error : OPERATION FAILED"
fit
xwd $imagedir/${test_image}.png
} else {
- puts "Error : The sewing can not be build."
+ puts "Error : The sewing cannot be built."
}
puts "TEST COMPLETED"