From: mkv <mkv@opencascade.com>
Date: Wed, 26 Jul 2017 13:57:08 +0000 (+0300)
Subject: Test for 0023671: pload function does not work if DRAWDEFAULT file has win format
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=47e34d7ed03aee243b65083af07fdab370b4653a;p=occt-copy.git

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

diff --git a/tests/bugs/demo/bug23671 b/tests/bugs/demo/bug23671
new file mode 100755
index 0000000000..b6dd7dd3f3
--- /dev/null
+++ b/tests/bugs/demo/bug23671
@@ -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"
+}