summaryrefslogtreecommitdiffstats
path: root/tests/pkg1
diff options
context:
space:
mode:
Diffstat (limited to 'tests/pkg1')
-rw-r--r--tests/pkg1/direct1.tcl23
-rw-r--r--tests/pkg1/pkgIndex.tcl11
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]]