X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Ffeat%2Fend;h=521ad623f86aac2678f1421aae1b3b55228ca645;hp=56f360740a75acc8f072bbd698b6e4f69e8a1745;hb=59e349919f8fa8fb1f9ce6b2eeda52a4fc4d28f9;hpb=400933675fbca9cd5e5913f6b073b570940ddb58 diff --git a/tests/feat/end b/tests/feat/end index 56f360740a..521ad623f8 100755 --- a/tests/feat/end +++ b/tests/feat/end @@ -9,25 +9,25 @@ if { [isdraw result] } { #check if result is valid puts [checkshape result] if { $m == 0 } { - puts "Error : The feat is not valid. The square is 0." + puts "Error : The feat grid is not valid. The area is 0." } if { $square > 0 } { - puts "The expected square is $square" + puts "The expected area is $square" } #check of change of square is < 1% - if { ($square != 0 && [expr abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } { - puts "Error : The square of reult shape is $m" + 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 { $m > 0 } { clear smallview donly result fit - xwd $imagedir/${test_image}.gif + xwd $imagedir/${test_image}.png } } else { - puts "Error : The feat can not be build." + puts "Error : The feat grid cannot be built." } # to end a test script