Adding test cases from chl grid
[occt.git] / tests / bugs / caf / bug23071
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