summaryrefslogtreecommitdiffstats
path: root/tests/pkg/std.tcl
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-07-04 00:32:53 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-07-04 00:32:53 (GMT)
commit72dbcf251c1f6a8af1d20d7eaa97bd014445ef71 (patch)
treeed284d443845c560065f4e46fb85b8099de3eb70 /tests/pkg/std.tcl
parentfda47bbaa13e43865058a11d857c9c08ebb02137 (diff)
downloadtcl-72dbcf251c1f6a8af1d20d7eaa97bd014445ef71.zip
tcl-72dbcf251c1f6a8af1d20d7eaa97bd014445ef71.tar.gz
tcl-72dbcf251c1f6a8af1d20d7eaa97bd014445ef71.tar.bz2
* Fixed [Bug 575857] where this test file
expected to be able to write to [file join [testsDirectory] pkg]. Part of the fix was to import several auxilliary files into the test file itself.
Diffstat (limited to 'tests/pkg/std.tcl')
-rw-r--r--tests/pkg/std.tcl28
1 files changed, 0 insertions, 28 deletions
diff --git a/tests/pkg/std.tcl b/tests/pkg/std.tcl
deleted file mode 100644
index 48c4048..0000000
--- a/tests/pkg/std.tcl
+++ /dev/null
@@ -1,28 +0,0 @@
-# std.tcl --
-#
-# Test package for pkg_mkIndex.
-# Does a package require of direct1, whose pkgIndex.tcl entry (in pkg1)
-# should be a -direct entry.
-# This tests that pkg_mkIndex can handle code that is sourced in pkgIndex.tcl
-# files.
-#
-# Copyright (c) 1998 by Scriptics Corporation.
-# All rights reserved.
-#
-# RCS: @(#) $Id: std.tcl,v 1.1 1998/10/17 00:21:43 escoffon Exp $
-
-package require direct1
-
-package provide std 1.0
-
-namespace eval std {
- namespace export p1 p2
-}
-
-proc std::p1 { stg } {
- return [string tolower $stg]
-}
-
-proc std::p2 { stg } {
- return [string toupper $stg]
-}