0028673: getsourcefile Draw command return different output on Linux and Windows...

[occt.git] / tests / demo / draw / getsource

diff --git a/tests/demo/draw/getsource b/tests/demo/draw/getsource
index 49cd13a..acfe3bb 100755 (executable)
--- a/tests/demo/draw/getsource
+++ b/tests/demo/draw/getsource
@@ -1,12 +1,7 @@
 # test for command getsource
 
 # check that path returned for command pload is as expected
-set env(os_type) $tcl_platform(platform)
-if { [string compare $env(os_type) "windows"] == 0 } {
-    set expected src/Draw/Draw_PloadCommands.cxx
-} else {
-    set expected /src/Draw/Draw_PloadCommands.cxx
-}
+set expected src/Draw/Draw_PloadCommands.cxx
 set path [lindex [getsourcefile pload] 1]
 if { [string compare $path $expected] } {
     puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"