mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-12 18:29:35 +08: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"
|