diff options
Diffstat (limited to 'tcl/tests/pkg/global.tcl')
-rw-r--r-- | tcl/tests/pkg/global.tcl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tcl/tests/pkg/global.tcl b/tcl/tests/pkg/global.tcl new file mode 100644 index 00000000000..a1689745aa2 --- /dev/null +++ b/tcl/tests/pkg/global.tcl @@ -0,0 +1,19 @@ +# global.tcl -- +# +# Test package for pkg_mkIndex. +# Contains global symbols, used to check that they don't have a leading :: +# +# Copyright (c) 1998 by Scriptics Corporation. +# All rights reserved. +# +# RCS: @(#) $Id$ + +package provide global 1.0 + +proc global_lower { stg } { + return [string tolower $stg] +} + +proc global_upper { stg } { + return [string toupper $stg] +} |