0023087: Upgrade of the OCCT test system
[occt.git] / tests / caf / begin
1 # File : begin
2
3 if { [info exists WorkDirectory] == 0 } {
4    set WorkDirectory "/tmp"
5    if { [array get env TEMP] != "" } {
6       set WorkDirectory "$env(TEMP)"
7    }
8 }
9
10 if { [array get Draw_Groups "DF basic commands"] == "" } {
11         pload DCAF
12 }
13
14 chrono qat start
15 # Create a new document and set UndoLimit
16 NewDocument D MDTV-Standard
17
18 #NewDocument D
19 cpulimit 300
20 UndoLimit D 100
21
22 # Open a transaction
23 NewCommand D