[occt.git] / tests / bugs / caf / buc60867

puts "==========="
puts "BUC60867"
puts "==========="

pload QAcommands

set ResultError [ BUC60867 [locate_data_file BUC60756_Doc.std] ]

if { [regexp "0" $ResultError] != 1 } {
    puts "Error : 1"
}
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "BUC60867"
	3	puts "==========="
	4
	5	pload QAcommands
	6
	7	set ResultError [ BUC60867 [locate_data_file BUC60756_Doc.std] ]
	8
	9	if { [regexp "0" $ResultError] != 1 } {
	10	puts "Error : 1"
	11	}
	12