mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03:00
11 lines
331 B
Plaintext
11 lines
331 B
Plaintext
puts "TODO ?OCC24130 Windows: TKOpenGl | Type\: Error | ID\: 0 | Severity\: High | Message\:"
|
|
|
|
# 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"
|