0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug22995
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
12 set aFile1 $imagedir/${test_image}-1.cbf
13 set aFile2 $imagedir/${test_image}-2.cbf
14
15 NewDocument D BinOcaf
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 }