1 files changed, 22 insertions, 0 deletions
diff --git a/tix/tests/general/draw.tcl b/tix/tests/general/draw.tcl
new file mode 100644
index 00000000000..6206f007410
--- /dev/null
+++ b/tix/tests/general/draw.tcl
@@ -0,0 +1,22 @@
+# draw.tcl --
+#
+#	Test the drawing functions in Tix.
+#
+# Copyright (c) 1996, Expert Interface Technologies
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+
+proc About {} {
+    return "Test the drawing functions in Tix."
+}
+
+proc Test {} {
+    TestBlock draw-1.1 {tixTmpLine} {
+	tixTmpLine 0 50 300 50	
+	tixTmpLine 0 50 300 50
+	tixTmpLine 0 50 300 50 .	
+	tixTmpLine 0 50 300 50 .
+    }
+}