tcl/tests/pkg/global.tcl

   1 # global.tcl --
   2 #
   3 #  Test package for pkg_mkIndex.
   4 #  Contains global symbols, used to check that they don't have a leading ::
   5 #
   6 # Copyright (c) 1998 by Scriptics Corporation.
   7 # All rights reserved.
   8 #
   9 # RCS: @(#) $Id$
  10
  11 package provide global 1.0
  12
  13 proc global_lower { stg } {
  14     return [string tolower $stg]
  15 }
  16
  17 proc global_upper { stg } {
  18     return [string toupper $stg]
  19 }