Created branch core-8-0-4-syntheticcore_8_0_4core_8_0_4_synthetic

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]}]
+}