diff options
Diffstat (limited to 'tcl/tests/pkg/pkg3.tcl')
-rw-r--r-- | tcl/tests/pkg/pkg3.tcl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tcl/tests/pkg/pkg3.tcl b/tcl/tests/pkg/pkg3.tcl new file mode 100644 index 00000000000..d9c450444f9 --- /dev/null +++ b/tcl/tests/pkg/pkg3.tcl @@ -0,0 +1,22 @@ +# pkg3.tcl -- +# +# Test package for pkg_mkIndex. +# +# Copyright (c) 1998 by Scriptics Corporation. +# All rights reserved. +# +# RCS: @(#) $Id$ + +package provide pkg3 1.0 + +namespace eval pkg3 { + namespace export p3-1 p3-2 +} + +proc pkg3::p3-1 { num } { + return {[expr $num * 2]} +} + +proc pkg3::p3-2 { num } { + return {[expr $num * 3]} +} |