diff options
author | Jason Molenda <jmolenda@apple.com> | 1999-11-09 01:28:43 +0000 |
---|---|---|
committer | Jason Molenda <jmolenda@apple.com> | 1999-11-09 01:28:43 +0000 |
commit | eceff73081bb2d5ebd624f6e2b775e93c4c7b298 (patch) | |
tree | ee2bc71d61f78dbfdf494640cfb678822e101cef /tcl/tests/pkg/simple.tcl | |
parent | 69a7b5f79888513741e65a54216d7756474b76c2 (diff) | |
download | gdb-dejagnu-1999-11-08.tar.gz |
import dejagnu-1999-11-08 snapshotdejagnu-1999-11-08
Diffstat (limited to 'tcl/tests/pkg/simple.tcl')
-rw-r--r-- | tcl/tests/pkg/simple.tcl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tcl/tests/pkg/simple.tcl b/tcl/tests/pkg/simple.tcl new file mode 100644 index 00000000000..73f49e3ac49 --- /dev/null +++ b/tcl/tests/pkg/simple.tcl @@ -0,0 +1,23 @@ +# simple.tcl -- +# +# Test package for pkg_mkIndex. This is a simple package, just to check +# basic functionality. +# +# Copyright (c) 1998 by Scriptics Corporation. +# All rights reserved. +# +# RCS: @(#) $Id$ + +package provide simple 1.0 + +namespace eval simple { + namespace export lower upper +} + +proc simple::lower { stg } { + return [string tolower $stg] +} + +proc simple::upper { stg } { + return [string toupper $stg] +} |