b053b764 |
1 | # in tests expression "set AddToDocument ASSEMBLY_C_L" means creating assembly and initializing colors and layers |
2 | # and expression "set AddToDocument COLORS_LAYERS" means initializing colors and layers |
3 | # |
4 | if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } { |
5 | pload DCAF |
6 | pload TOPTEST |
7 | pload XDE |
8 | } |
9 | |
10 | cpulimit 1000 |
11 | |
12 | set ErrorCode 0 |
13 | ############## |
14 | ### ErrorCode means : |
15 | ### 0 - Success |
16 | ### 1 - Warning |
17 | ### 2 - Error |
18 | ############### |
19 | |
20 | #if {[string compare [datadir] "."] == 0} { |
21 | # datadir [file dirname [info script]]/data |
22 | #} |
23 | |
24 | if { [info exists imagedir] == 0 } { |
25 | set imagedir . |
26 | } |
dd2c7137 |
27 | if { [info exists test_image ] == 0 } { |
28 | set test_image photo |
29 | } |
b053b764 |
30 | |
31 | #set WorkDirectory "$env(TmpDir)" |
32 | set WorkDirectory $imagedir |
33 | |
b053b764 |
34 | if {![file exists $WorkDirectory]} { |
35 | catch {[file mkdir $WorkDirectory]} |
36 | } else { |
37 | if {![file isdirectory $WorkDirectory]} { |
38 | puts "The assigned work directory $WorkDirectory is not directory! Exit ..." |
39 | exit |
40 | } |
41 | } |