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