projects / occt.git / blame
| Commit | Line | Data |
|---|---|---|
| b6c0b841 RL |
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" |