diff options
Diffstat (limited to 'tests/pkg/std.tcl')
-rw-r--r-- | tests/pkg/std.tcl | 28 |
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] -} |