0023087: Upgrade of the OCCT test system
[occt.git] / tests / prism / end
CommitLineData
40093367 1if { [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}.gif
11} else {
12 puts "Error : The prism can not be build."
13}
14
15# to end a test script
16puts "TEST COMPLETED"