diff options
Diffstat (limited to 'tcl/tests/pkg/pkg1.tcl')
-rw-r--r-- | tcl/tests/pkg/pkg1.tcl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tcl/tests/pkg/pkg1.tcl b/tcl/tests/pkg/pkg1.tcl new file mode 100644 index 00000000000..7d029f3e80a --- /dev/null +++ b/tcl/tests/pkg/pkg1.tcl @@ -0,0 +1,26 @@ +# pkg1.tcl -- +# +# Test package for pkg_mkIndex. This package requires pkg3, but it does +# not use any of pkg3's procs in the code that is executed by the file +# (i.e. references to pkg3's procs are in the proc bodies only). +# +# Copyright (c) 1998 by Scriptics Corporation. +# All rights reserved. +# +# RCS: @(#) $Id$ + +package require pkg3 1.0 + +package provide pkg1 1.0 + +namespace eval pkg1 { + namespace export p1-1 p1-2 +} + +proc pkg1::p1-1 { num } { + return [pkg3::p3-1 $num] +} + +proc pkg1::p1-2 { num } { + return [pkg3::p3-2 $num] +} |