1 if { [isdraw result] } {
4 regexp {Mass +: +([-0-9.+eE]+)} [sprops s] full sm
6 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
8 #check if result is valid
9 puts [checkshape result]
10 if { $m == 0 || $sm == $m } {
11 puts "Error : The blend is not valid."
15 puts "The expected square is $square"
17 #check of change of square is < 1%
18 if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
19 puts "Error : The square of result shape is $m"
26 xwd $imagedir/${test_image}.png
29 puts "Error : The blend can not be build."
32 # to end a test script