tests/demo/samples/bottle

   1 puts "TODO ?OCC24130 Windows: TKOpenGl | Type\: Error | ID\: 0 | Severity\: High | Message\:"
   2
   3 # test for creation of bottle as in tutorial (script is in samples)
   4 source $env(CASROOT)/samples/tcl/bottle.tcl
   5
   6 # check result for validity and make a snapshot
   7 checkshape bottle
   8 vdump $imagedir/${test_image}.png
   9
  10 puts "TEST COMPLETED"