tests/caf/progress/A1

   1 #INTERFACE CAF
   2 # Message_ProgressIndicator
   3 #
   4 # Testing attribute: TDocStd_Application
   5 #
   6 # Testing command:   SaveAs
   7 #
   8
   9 puts "caf009-A1"
  10
  11 # Configurate XProgress
  12 XProgress +t
  13
  14 # Create binary document
  15 NewDocument Doc BinOcaf
  16
  17 # Fill the document by box
  18 box b 1 1 1
  19 SetShape Doc 0:1 b
  20
  21 # SaveAs
  22 set output [SaveAs Doc ${imagedir}/testA1.cbf]
  23
  24 # Close the document
  25 Close Doc
  26
  27 # Test data
  28 set ctr { "0%" "Writing document" "Writing sub tree"
  29     "Writing geometry" "Writing 2D curves" "Writing curves"
  30     "Writing surfases" "Writing shapes" "100%" }
  31
  32 foreach data ${ctr} {
  33     if ![regexp $data $output] {
  34        puts "Error: SaveAs command for binary files: Mismatch data on '$data'"
  35        break;
  36     }
  37 }