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