0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / draft / begin
1 # File : begin
2
3 if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
4         pload TOPTEST
5 }
6
7 # to prevent loops limit to 10 minutes
8 cpulimit 600
9
10 if { [info exists imagedir] == 0 } {
11    set imagedir .
12 }
13 if { [info exists test_image ] == 0 } {
14    set test_image photo
15 }