1 if { [isdraw result] } {
2 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
4 #check if result is valid
5 set ch [checkshape result]
8 puts "Error : The depouille is not valid. The square is 0."
12 puts "The expected square is $square"
14 #check of change of square is < 1%
15 if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
16 puts "Error : The square of result shape is $m"
18 if { [string compare $ch "This shape seems to be valid"] == 0 } {
19 #check if tolerance is less 1.
21 if { [regexp {Face +:.+Max +([-0-9.+eE]+)} [maxtolerance result] full tol] == 0 } {
22 #Avoiding maxtolerance bug on Windows
23 if { [array get Draw_Groups "Shape Healing"] == "" } {
26 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full tol
29 puts "Error: The tolerance of result shape is too big ($tol)."
38 xwd $imagedir/${test_image}.png
41 puts "Error : The depouille can not be build."
44 # to end a test script