da284e662db9e58d00d9bf2dc98d58dbb1a8da9b
[occt.git] / 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"