tests/caf/progress/B1

   1 #INTERFACE CAF
   2 # Message_ProgressIndicator
   3 #
   4 # Testing attribute: TDocStd_Application
   5 #
   6 # Testing command:   Open
   7 #
   8
   9 puts "caf009-B1"
  10
  11 set bDoc [CreateBinDoc]
  12
  13 # Configurate XProgress
  14 XProgress +t
  15
  16 # Open binary document
  17 if {${bDoc} == "" } {
  18    puts "Error: Open command for binary files: Error, wrong path"
  19    return
  20 }
  21
  22 set output [Open ${bDoc} Doc]
  23
  24 # Close the document
  25 Close Doc
  26
  27 # Test data
  28 set ctr {"0%" "Reading data" "Reading sub tree" "100%" }
  29
  30 foreach data ${ctr} {
  31     if ![regexp $data $output] {
  32        puts "Error: Open command for binary files: Mismatch data on '$data'"
  33        break
  34     }
  35 }