[occt.git] / tests / caf / progress / C1

#INTERFACE CAF
# Message_ProgressIndicator
#
# Testing attribute: TDocStd_Application
#
# Testing command:   Save
#

puts "caf009-C1"

set bDoc [CreateBinDoc]

# Open document
if {${bDoc} == "" } {
   puts "Save command for binary files: Error, cannot open file"
   return
}
Open ${bDoc} Doc

# Fill the document by another box
box b 1 1 1
SetShape Doc 0:2 b
 
# Configurate XProgress 
XProgress +t

# Save
set output [Save Doc]

# Close the document
Close Doc

# Test data
set ctr { "0%" "Writing document" "Writing sub tree" "100%" }

foreach data ${ctr} {
    if ![regexp $data $output] {
       puts "Error: Save command for binary files: Mismatch data on '$data'"
       break
    }
}
Commit	Line	Data
6d8f9f4a	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
7e785937	25	XProgress +t
6d8f9f4a	26
	27	# Save
	28	set output [Save Doc]
	29
	30	# Close the document
	31	Close Doc
	32
	33	# Test data
d5c71e20	34	set ctr { "0%" "Writing document" "Writing sub tree" "100%" }
6d8f9f4a	35
	36	foreach data ${ctr} {
	37	if ![regexp $data $output] {
	38	puts "Error: Save command for binary files: Mismatch data on '$data'"
	39	break
	40	}
	41	}