0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / demo / samples / bottle
CommitLineData
38962ba6 1puts "TODO ?OCC24130 Windows: TKOpenGl | Type\: Error | ID\: 0 | Severity\: High | Message\:"
2
40093367 3# test for creation of bottle as in tutorial (script is in samples)
4source $env(CASROOT)/samples/tcl/bottle.tcl
5
6# check result for validity and make a snapshot
7checkshape bottle
8vdump $imagedir/${test_image}.png
9
10puts "TEST COMPLETED"