0023348: Expression 'ii >= 0' is always true. Unsigned type value is always >= 0.
[occt.git] / tests / demo / draw / getsource
diff --git a/tests/demo/draw/getsource b/tests/demo/draw/getsource
new file mode 100644 (file)
index 0000000..acfe3bb
--- /dev/null
@@ -0,0 +1,10 @@
+# test for command getsource
+
+# check that path returned for command pload is as expected
+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'"
+}
+
+puts "TEST COMPLETED"