Added the pkg_mkIndex test suite

2 files changed, 34 insertions, 0 deletions

diff --git a/tests/pkg1/direct1.tcl b/tests/pkg1/direct1.tcl
new file mode 100644
index 0000000..cc10330
--- /dev/null
+++ b/tests/pkg1/direct1.tcl
@@ -0,0 +1,23 @@
+# std.tcl --
+#
+#  Test support package for pkg_mkIndex.
+#  This is referenced by pkgIndex.tcl as a -direct script.
+#
+# Copyright (c) 1998 by Scriptics Corporation.
+# All rights reserved.
+# 
+# RCS: @(#) $Id: direct1.tcl,v 1.1 1998/10/17 00:21:44 escoffon Exp $
+
+package provide direct1 1.0
+
+namespace eval direct1 {
+    namespace export pd1 pd2
+}
+
+proc direct1::pd1 { stg } {
+    return [string tolower $stg]
+}
+
+proc direct1::pd2 { stg } {
+    return [string toupper $stg]
+}
diff --git a/tests/pkg1/pkgIndex.tcl b/tests/pkg1/pkgIndex.tcl
new file mode 100644
index 0000000..5dc1d5e
--- /dev/null
+++ b/tests/pkg1/pkgIndex.tcl
@@ -0,0 +1,11 @@
+# Tcl package index file, version 1.1
+# This file is generated by the "pkg_mkIndex -direct" command
+# and sourced either when an application starts up or
+# by a "package unknown" script.  It invokes the
+# "package ifneeded" command to set up package-related
+# information so that packages will be loaded automatically
+# in response to "package require" commands.  When this
+# script is sourced, the variable $dir must contain the
+# full path name of this file's directory.
+
+package ifneeded direct1 1.0 [list source [file join $dir direct1.tcl]]