tests/draft/end

   1 if { [isdraw result] } {
   2     #check if result is valid
   3     set ch [checkshape result]
   4     puts $ch
   5
   6     if { [string compare $ch "This shape seems to be valid"] == 0 } {
   7         #check if tolerance is less 1.
   8         set tol 10.
   9         if { [regexp {Face +:.+Max +([-0-9.+eE]+)} [maxtolerance result] full tol]  == 0 } {
  10             #Avoiding maxtolerance bug on Windows
  11             if { [array get Draw_Groups "Shape Healing"] == "" } {
  12                 pload XSDRAW
  13             }
  14             regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full tol
  15         }
  16         if { $tol > 1. } {
  17             puts "Error: The tolerance of the resulting shape is too big ($tol)."
  18         }
  19     }
  20
  21     checkview -display result -2d -path ${imagedir}/${test_image}.png
  22 } else {
  23     puts "Error : The skin cannot be built."
  24 }
  25
  26 # to end a test script
  27 puts "TEST COMPLETED"