0024925: Enabling OCAF persistence without setting environment variables
[occt.git] / tests / bugs / caf / bug24925
1 puts "==========="
2 puts "OCC24925 Enabling OCAF persistence without setting environment variables"
3 puts "==========="
4
5 pload QAcommands
6
7 set THE_PLUGIN      "TKXml"
8 set THE_SAVE_DRIVER "03a56820-8269-11d5-aab2-0050044b1af1"
9 set THE_LOAD_DRIVER "03a56822-8269-11d5-aab2-0050044b1af1"
10
11 set aFileName "$imagedir/${casename}_doc.xml"
12 if { [file exists "$aFileName"] == 1} {
13   file delete $aFileName
14 }
15
16 # corrupt environment variable to Plugin file
17 set anEnvOld [dgetenv CSF_PluginDefaults]
18 dsetenv "CSF_PluginDefaults"
19 set anEnvNow [dgetenv CSF_PluginDefaults]
20 puts "Unset environment variable CSF_PluginDefaults (old='${anEnvOld}', new='${anEnvNow}')"
21
22 OCC24925 "$aFileName" $THE_PLUGIN $THE_SAVE_DRIVER $THE_LOAD_DRIVER
23
24 if { [file isfile "$aFileName"] == 1} {
25   set aFile     [open "$aFileName" r]
26   set aFileData [read $aFile]
27   close $aFile
28   if { [string first "My Proprietary Format" "$aFileData"] == -1} {
29     puts "Error: XML file does not contain 'My Proprietary Format'!"
30   }
31   if { [string first "QABugs_19.cxx" "$aFileData"] == -1} {
32     puts "Error: XML file does not contain 'QABugs_19.cxx'!"
33   }
34 } else {
35   puts "Error: file is not created!"
36 }
37
38 #dsetenv "CSF_PluginDefaults" "anEnvOld"