diff options
Diffstat (limited to 'tests/pkg/circ2.tcl')
-rw-r--r-- | tests/pkg/circ2.tcl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/pkg/circ2.tcl b/tests/pkg/circ2.tcl new file mode 100644 index 0000000..66a20a3 --- /dev/null +++ b/tests/pkg/circ2.tcl @@ -0,0 +1,25 @@ +# circ2.tcl -- +# +# Test package for pkg_mkIndex. This package is required by circ1, and +# requires circ3. Circ3, in turn, requires circ1 to give us a circularity. +# +# Copyright (c) 1998 by Scriptics Corporation. +# All rights reserved. +# +# RCS: @(#) $Id: circ2.tcl,v 1.1 1998/10/17 00:21:39 escoffon Exp $ + +package require circ3 1.0 + +package provide circ2 1.0 + +namespace eval circ2 { + namespace export c2-1 c2-2 +} + +proc circ2::c2-1 { num } { + return [expr $num * [circ3::c3-1]] +} + +proc circ2::c2-2 { num } { + return [expr $num * [circ3::c3-2]] +} |