tests/caf/progress/A2

   1 #INTERFACE CAF
   2 # Message_ProgressIndicator
   3 #
   4 # Testing attribute: TDocStd_Application
   5 #
   6 # Testing command:   SaveAs
   7 #
   8
   9 puts "caf009-A2"
  10
  11 # Configurate XProgress
  12 XProgress +t
  13
  14 # Create binary document
  15 NewDocument Doc XmlOcaf
  16
  17 # Fill the document by box
  18 box b 1 1 1
  19
  20 SetShape Doc 0:1 b
  21
  22 # SaveAs
  23 set output [SaveAs Doc ${imagedir}/testA2.xml]
  24
  25 # Close the document
  26 Close Doc
  27
  28 # Test data
  29 set ctr { "0%" "Writing sub-tree" "Writing shape section"
  30           "Writing" "Geometry" "2D Curves" "3D Curves"
  31           "Polygons On Triangulation" "Surfaces"
  32           "3D Polygons" "Triangulations" "100%" "Shapes" }
  33
  34 foreach data ${ctr} {
  35     if ![regexp $data $output] {
  36           puts "Error: SaveAs command for xml files: Mismatch data on '$data'"
  37           break
  38     }
  39 }