3bea4c16 |
1 | puts "========================" |
2 | puts "OCC22995" |
3 | puts "========================" |
4 | puts "" |
5 | ################################################################################################## |
6 | # It is not possible to check presence of a document in OCAF session via IsInSession() on Windows |
7 | ################################################################################################## |
8 | |
9 | set BugNumber OCC22995 |
10 | |
11 | set status 0 |
e837410d |
12 | set aFile1 $imagedir/${test_image}-1.cbf |
13 | set aFile2 $imagedir/${test_image}-2.cbf |
3bea4c16 |
14 | |
e837410d |
15 | NewDocument D BinOcaf |
3bea4c16 |
16 | |
17 | if { [file exists ${aFile1}] } { |
18 | file delete ${aFile1} |
19 | } |
20 | if { [file exists ${aFile2}] } { |
21 | file delete ${aFile2} |
22 | } |
23 | SaveAs D ${aFile1} |
24 | set info1 [ IsInSession ${aFile1} ] |
25 | set info0 [ IsInSession ${aFile2} ] |
26 | if { ${info1} == 1 && ${info0} == 0 } { |
27 | puts "OK ${BugNumber}" |
28 | } else { |
29 | puts "Faulty ${BugNumber}" |
30 | } |