summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorwelch <welch>1998-12-04 06:28:11 (GMT)
committerwelch <welch>1998-12-04 06:28:11 (GMT)
commitc971b7059109d8f74a9853b49b43f9e7acd509e7 (patch)
treef0df433d9e43a1e826fc4d753ff2eb5a1f0c87ee /tests
parentcbff5b9a590af5d06e6e9158c3119017db2aee7e (diff)
downloadtcl-c971b7059109d8f74a9853b49b43f9e7acd509e7.zip
tcl-c971b7059109d8f74a9853b49b43f9e7acd509e7.tar.gz
tcl-c971b7059109d8f74a9853b49b43f9e7acd509e7.tar.bz2
Added test file
Diffstat (limited to 'tests')
-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]}]
+}