summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/pkg/pkga.tcl15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/pkg/pkga.tcl b/tests/pkg/pkga.tcl
new file mode 100644
index 0000000..e964f51
--- /dev/null
+++ b/tests/pkg/pkga.tcl
@@ -0,0 +1,15 @@
+# pkga.tcl --
+#
+# Test package for pkg_mkIndex. This package provides Pkga,
+# which is also provided by a DLL.
+#
+# Copyright (c) 1998 by Scriptics Corporation.
+# All rights reserved.
+#
+# RCS: @(#) $Id: pkga.tcl,v 1.1 1998/12/04 06:28:11 welch Exp $
+
+package provide Pkga 1.0
+
+proc pkga_neq { x } {
+ return [expr {! [pkgq_eq $x]}]
+}