if { [isdraw result] } { regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m #check if result is valid set ch [checkshape result] puts $ch if { $m == 0 } { puts "Error : The skin is not valid. The area is 0." } if { $square > 0 } { puts "The expected area is $square" } #check of change of square is < 1% if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } { puts "Error : The area of the resulting shape is $m" } if { [string compare $ch "This shape seems to be valid"] == 0 } { #check if tolerance is less 1. set tol 10. if { [regexp {Face +:.+Max +([-0-9.+eE]+)} [maxtolerance result] full tol] == 0 } { #Avoiding maxtolerance bug on Windows if { [array get Draw_Groups "Shape Healing"] == "" } { pload XSDRAW } regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full tol } if { $tol > 1. } { puts "Error: The tolerance of the resulting shape is too big ($tol)." } } if { $m > 0 } { clear smallview donly result fit xwd $imagedir/${test_image}.png } } else { puts "Error : The skin cannot be built." } # to end a test script puts "TEST COMPLETED"