tests/caf/progress/C1

   1 #INTERFACE CAF
   2 # Message_ProgressIndicator
   3 #
   4 # Testing attribute: TDocStd_Application
   5 #
   6 # Testing command:   Save
   7 #
   8
   9 puts "caf009-C1"
  10
  11 set bDoc [CreateBinDoc]
  12
  13 # Open document
  14 if {${bDoc} == "" } {
  15    puts "Save command for binary files: Error, cannot open file"
  16    return
  17 }
  18 Open ${bDoc} Doc
  19
  20 # Fill the document by another box
  21 box b 1 1 1
  22 SetShape Doc 0:2 b
  23
  24 # Configurate XProgress
  25 XProgress +t
  26
  27 # Save
  28 set output [Save Doc]
  29
  30 # Close the document
  31 Close Doc
  32
  33 # Test data
  34 set ctr { "0%" "Writing document" "Writing sub tree"
  35     "Writing geometry" "Writing 2D curves" "Writing curves"
  36     "Writing surfases" "Writing shapes" "100%" }
  37
  38 foreach data ${ctr} {
  39     if ![regexp $data $output] {
  40        puts "Error: Save command for binary files: Mismatch data on '$data'"
  41        break
  42     }
  43 }