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

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

puts "caf009-B1"

set bDoc [CreateBinDoc]

# Configurate XProgress 
XProgress +t 

# Open binary document
if {${bDoc} == "" } {
   puts "Error: Open command for binary files: Error, wrong path"
   return
}

set output [Open ${bDoc} Doc]

# Close the document
Close Doc

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

foreach data ${ctr} {
    if ![regexp $data $output] {
       puts "Error: Open 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: Open
	7	#
	8
	9	puts "caf009-B1"
	10
	11	set bDoc [CreateBinDoc]
	12
	13	# Configurate XProgress
7e785937	14	XProgress +t
6d8f9f4a	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
d5c71e20	28	set ctr {"0%" "Reading data" "Reading sub tree" "100%" }
6d8f9f4a	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	}