Commit | Line | Data |
---|---|---|
40093367 | 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 | |
88f8fc81 | 10 | xwd $imagedir/${test_image}.png |
40093367 | 11 | } else { |
94a57f1f | 12 | puts "Error : The prism cannot be built." |
40093367 | 13 | } |
14 | ||
15 | # to end a test script | |
16 | puts "TEST COMPLETED" |