# test for creation of bottle as in tutorial (script is in samples)
source $env(CASROOT)/samples/tcl/bottle.tcl

# check result for validity and make a snapshot
checkshape bottle
vdump $imagedir/${test_image}.png

puts "TEST COMPLETED"
