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.std
  13 set aFile2 $imagedir/${test_image}-2.std
  14
  15 NewDocument D MDTV-Standard
  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 }