3bea4c16 |
1 | puts "================" |
2 | puts "OCC23071" |
3 | puts "================" |
4 | puts "" |
5 | ################################################################################################### |
6 | # Comparison of file extension is case sensitive |
7 | ################################################################################################### |
8 | |
9 | set BugNumber OCC23071 |
10 | |
11 | set FileName $imagedir/${test_image}.STD |
12 | set FileName2 $imagedir/${test_image}.std |
13 | set FileName3 ${FileName}.std |
14 | |
15 | set status 0 |
16 | |
17 | file delete ${FileName} |
18 | if [file exists ${FileName}] { |
19 | puts "There is temporary ${FileName} file" |
20 | set status 1 |
21 | } |
22 | file delete ${FileName2} |
23 | if [file exists ${FileName2}] { |
24 | puts "There is temporary ${FileName2} file" |
25 | set status 1 |
26 | } |
27 | file delete ${FileName3} |
28 | if [file exists ${FileName3}] { |
29 | puts "There is temporary ${FileName3} file" |
30 | set status 1 |
31 | } |
32 | |
33 | catch { NewDocument D MDTV-Standard } |
34 | |
35 | if [catch {SaveAs D ${FileName} }] { |
36 | puts "Faulty ${BugNumber} ; SaveAs command: Error" |
37 | set status 1 |
38 | } else { |
39 | |
40 | # if [file exists ${WorkDirectory}/${FileName}] { |
41 | # puts "There is ${FileName} file" |
42 | # } else { |
43 | # puts "There is not ${FileName} file" |
44 | # } |
45 | |
46 | if [file exists ${FileName2}] { |
47 | puts "There is ${FileName2} file" |
48 | } else { |
49 | puts "There is not ${FileName2} file" |
50 | # |
51 | |
52 | if { [string compare $tcl_platform(platform) "windows"] == 0 } { |
53 | puts "OS = Windows NT" |
54 | set status 1 |
55 | } |
56 | # |
57 | } |
58 | |
59 | if [file exists ${FileName3}] { |
60 | puts "There is ${FileName3} file" |
61 | } else { |
62 | puts "There is not ${FileName3} file" |
63 | # |
64 | if { [string compare $tcl_platform(platform) "windows"] == 0 } { |
65 | puts "OS = Windows NT" |
66 | } else { |
67 | puts "OS = Unix" |
68 | set status 1 |
69 | } |
70 | } |
71 | |
72 | } |
73 | |
74 | # Resume |
75 | puts "" |
76 | if { ${status} == 0 } { |
77 | puts "OK ${BugNumber}" |
78 | } else { |
79 | puts "Faulty ${BugNumber}" |
80 | } |
81 | |
82 | |