OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-19 13:40:49 +03:00
Code Activity

Test for 0023671: pload function does not work if DRAWDEFAULT file has win format

Browse Source
This commit is contained in:
mkv
2017-07-26 16:57:08 +03:00
parent 63bd365eed
commit 47e34d7ed0
1 changed files with 40 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
tests/bugs/demo/bug23671 Executable file
View File

@@ -0,0 +1,40 @@
puts "TODO CR23671 Linux: Error"
puts "TODO CR23671 Linux: Draw_Failure: Could not open"
puts "============"
puts "CR23671"
puts "============"
puts ""
##########################################################################################################
# pload function does not work if $DRAWDEFAULT file has win format
##########################################################################################################
set aDrawPlugin [locate_data_file DrawPlugin]
set aDrawPluginDefaults [ file dirname ${aDrawPlugin} ]
dgetenv CSF_DrawPluginDefaults
dgetenv DRAWDEFAULT
dsetenv CSF_DrawPluginDefaults ${aDrawPluginDefaults}
dsetenv DRAWDEFAULT ${aDrawPlugin}
dgetenv CSF_DrawPluginDefaults
dgetenv DRAWDEFAULT
if [catch {pload} info] {
puts "Error: pload function does not work if \$DRAWDEFAULT file has win format"
} else {
puts "OK: pload function work if \$DRAWDEFAULT file has win format"
}
if [catch {pload -DrawPlugin} info] {
puts "Error: pload function does not work if \$DRAWDEFAULT file has win format"
} else {
puts "OK: pload function work if \$DRAWDEFAULT file has win format"
}
if [catch {pload XDE} info] {
puts "Error: pload function does not work if \$DRAWDEFAULT file has win format"
} else {
puts "OK: pload function work if \$DRAWDEFAULT file has win format"
}