40093367 |
1 | # test for creation of bottle as in tutorial (script is in samples) |
2 | source $env(CASROOT)/samples/tcl/bottle.tcl |
3 | |
4 | # check result for validity and make a snapshot |
5 | checkshape bottle |
6 | vdump $imagedir/${test_image}.png |
7 | |
8 | puts "TEST COMPLETED" |