diff options
Diffstat (limited to 'tcl/tests/pkg/circ3.tcl')
-rw-r--r-- | tcl/tests/pkg/circ3.tcl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tcl/tests/pkg/circ3.tcl b/tcl/tests/pkg/circ3.tcl new file mode 100644 index 00000000000..72ef502a2a3 --- /dev/null +++ b/tcl/tests/pkg/circ3.tcl @@ -0,0 +1,25 @@ +# circ3.tcl -- +# +# Test package for pkg_mkIndex. This package is required by circ2, and in +# turn requires circ1. This closes the circularity. +# +# Copyright (c) 1998 by Scriptics Corporation. +# All rights reserved. +# +# RCS: @(#) $Id$ + +package require circ1 1.0 + +package provide circ3 1.0 + +namespace eval circ3 { + namespace export c3-1 c3-4 +} + +proc circ3::c3-1 {} { + return [circ1::c1-3] +} + +proc circ3::c3-2 {} { + return [circ1::c1-4] +} |