puts "The expected $prop is $mass"
}
#check of change of square is < 1%
- if { ($mass != 0 && [expr abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
- puts "Error : The $prop of result shape is $m"
+ if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
+ puts "Error : The $prop of the resulting shape is $m"
}
} else {
if { $m != 0 } {
clear
donly result
fit
- xwd $imagedir/${test_image}.gif
+ xwd $imagedir/${test_image}.png
} else {
smallview
clear
fit
- xwd $imagedir/${test_image}.gif
+ xwd $imagedir/${test_image}.png
}
} else {
- puts "Error : The $command can not be build."
+ puts "Error : The $command cannot be built."
}
# to end a test script