tcl/tests/pkg/std.tcl

   1 # std.tcl --
   2 #
   3 #  Test package for pkg_mkIndex.
   4 #  Does a package require of direct1, whose pkgIndex.tcl entry (in pkg1)
   5 #  should be a -direct entry.
   6 #  This tests that pkg_mkIndex can handle code that is sourced in pkgIndex.tcl
   7 #  files.
   8 #
   9 # Copyright (c) 1998 by Scriptics Corporation.
  10 # All rights reserved.
  11 #
  12 # RCS: @(#) $Id$
  13
  14 package require direct1
  15
  16 package provide std 1.0
  17
  18 namespace eval std {
  19     namespace export p1 p2
  20 }
  21
  22 proc std::p1 { stg } {
  23     return [string tolower $stg]
  24 }
  25
  26 proc std::p2 { stg } {
  27     return [string toupper $stg]
  28 }