1 if { [isdraw result] } {
2 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
4 #check if result is valid
5 puts [checkshape result]
7 puts "Error: The pipe is invalid. The square is 0."
11 puts "The expected square is $square"
13 #check of change of square is < 1%
14 if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
15 puts "Error : The square of result shape is $m"
22 xwd $imagedir/${test_image}.png
25 puts "Error : The pipe can not be build."
28 # to end a test script