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

puts "=========="
puts "OCC24565"
puts "=========="
puts ""
###################################################
# MgtBRep persistence bug
###################################################

pload QAcommands

set igs_file [locate_data_file bug24565_N60E.igs]

set output_file ${imagedir}/bug24565_output.stor
catch { file delete ${output_file} }

dlog reset
dlog on
OCC24565 ${igs_file} ${output_file}
set info [dlog get]

if { [regexp "Exception" ${info} ] != 1 } {
    puts "OK : persistence is good"
} else {
    puts "Error : persistence is bad"
}
Commit	Line	Data
3497d552	1	puts "=========="
	2	puts "OCC24565"
	3	puts "=========="
	4	puts ""
	5	###################################################
	6	# MgtBRep persistence bug
	7	###################################################
	8
	9	pload QAcommands
	10
	11	set igs_file [locate_data_file bug24565_N60E.igs]
	12
	13	set output_file ${imagedir}/bug24565_output.stor
	14	catch { file delete ${output_file} }
	15
	16	dlog reset
	17	dlog on
	18	OCC24565 ${igs_file} ${output_file}
	19	set info [dlog get]
	20
	21	if { [regexp "Exception" ${info} ] != 1 } {
	22	puts "OK : persistence is good"
	23	} else {
	24	puts "Error : persistence is bad"
	25	}