tests/demo/samples/bottle

   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"