1 puts "================"
3 puts "================"
5 ###################################################################################################
6 # Comparison of file extension is case sensitive
7 ###################################################################################################
11 set FileName $imagedir/${test_image}.CBF
12 set FileName2 $imagedir/${test_image}.cbf
13 set FileName3 ${FileName}.cbf
17 file delete ${FileName}
18 if [file exists ${FileName}] {
19 puts "There is temporary ${FileName} file"
22 file delete ${FileName2}
23 if [file exists ${FileName2}] {
24 puts "There is temporary ${FileName2} file"
27 file delete ${FileName3}
28 if [file exists ${FileName3}] {
29 puts "There is temporary ${FileName3} file"
33 catch { NewDocument D BinOcaf }
35 if [catch {SaveAs D ${FileName} }] {
36 puts "Faulty ${BugNumber} ; SaveAs command: Error"
40 # if [file exists ${WorkDirectory}/${FileName}] {
41 # puts "There is ${FileName} file"
43 # puts "There is not ${FileName} file"
46 if [file exists ${FileName2}] {
47 puts "There is ${FileName2} file"
49 puts "There is not ${FileName2} file"
52 if { [checkplatform -windows] } {
53 puts "OS = Windows NT"
59 if [file exists ${FileName3}] {
60 puts "There is ${FileName3} file"
62 puts "There is not ${FileName3} file"
64 if { [checkplatform -windows] } {
65 puts "OS = Windows NT"
76 if { ${status} == 0 } {
77 puts "OK ${BugNumber}"
79 puts "Faulty ${BugNumber}"