0029195: OCAF - ensure thread safety for different documents.
[occt.git] / tests / bugs / caf / bug29195_1
1 pload QAcommands
2 ##set imagedir [pwd]
3
4 set aFile1 [locate_data_file bug29195_1.cbf]
5 set aFile2 [locate_data_file bug29195_2.cbf]
6 set aFile3 [locate_data_file bug29195_3.cbf]
7 set aFile4 [locate_data_file bug29195_4.cbf]
8 set aFile5 [locate_data_file bug29195_1.xml]
9 set aFile6 [locate_data_file bug29195_2.xml]
10 set aFile7 [locate_data_file bug29195_3.xml]
11 set aFile8 [locate_data_file bug29195_4.xml]
12 set aFile9 [locate_data_file bug29195_1.std]
13 set aFile10 [locate_data_file bug29195_2.std]
14 set aFile11 [locate_data_file bug29195_3.std]
15 set aFile12 [locate_data_file bug29195_4.std]
16
17
18 set aNew1 ${imagedir}/new_bug29195_1.cbf
19 set aNew2 ${imagedir}/new_bug29195_2.cbf
20 set aNew3 ${imagedir}/new_bug29195_3.cbf
21 set aNew4 ${imagedir}/new_bug29195_4.cbf
22 set aNew5 ${imagedir}/new_bug29195_1.xml
23 set aNew6 ${imagedir}/new_bug29195_2.xml
24 set aNew7 ${imagedir}/new_bug29195_3.xml
25 set aNew8 ${imagedir}/new_bug29195_4.xml
26
27 OCC29195 50 $aFile1 $aFile5 $aFile9 ${aNew1} ${aNew5} $aFile2 $aFile6 $aFile10 ${aNew2} ${aNew6} $aFile3 $aFile7 $aFile11 ${aNew3} ${aNew7} $aFile4 $aFile8 $aFile12 ${aNew4} ${aNew8}
28 set RES [dgetenv Result29195]
29
30 if { [file exists ${aNew1}] } {file delete ${aNew1}}
31 if { [file exists ${aNew2}] } {file delete ${aNew2}}
32 if { [file exists ${aNew3}] } {file delete ${aNew3}}
33 if { [file exists ${aNew4}] } {file delete ${aNew4}}
34 if { [file exists ${aNew5}] } {file delete ${aNew5}}
35 if { [file exists ${aNew6}] } {file delete ${aNew6}}
36 if { [file exists ${aNew7}] } {file delete ${aNew7}}
37 if { [file exists ${aNew8}] } {file delete ${aNew8}}
38
39 puts "OCC29195 is $RES"