tests/prism/end

   1 if { [isdraw result] } {
   2    regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
   3
   4    #check if result is valid
   5    puts [checkshape result]
   6     clear
   7     smallview
   8     donly result
   9     fit
  10     xwd $imagedir/${test_image}.png
  11 } else {
  12    puts "Error : The prism cannot be built."
  13 }
  14
  15 # to end a test script
  16 puts "TEST COMPLETED"