0024927: Getting rid of "Persistent" functionality -- Code
[occt.git] / tests / bugs / caf / bug24565
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 }