diff options
Diffstat (limited to 'tests/pkg/circ1.tcl')
-rw-r--r-- | tests/pkg/circ1.tcl | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/tests/pkg/circ1.tcl b/tests/pkg/circ1.tcl deleted file mode 100644 index 3616621..0000000 --- a/tests/pkg/circ1.tcl +++ /dev/null @@ -1,34 +0,0 @@ -# circ1.tcl -- -# -# Test package for pkg_mkIndex. This package requires circ2, and circ2 -# requires circ3, which in turn requires circ1. -# In case of cirularities, pkg_mkIndex should give up when it gets stuck. -# -# Copyright (c) 1998 by Scriptics Corporation. -# All rights reserved. -# -# RCS: @(#) $Id: circ1.tcl,v 1.1 1998/10/17 00:21:39 escoffon Exp $ - -package require circ2 1.0 - -package provide circ1 1.0 - -namespace eval circ1 { - namespace export c1-1 c1-2 c1-3 c1-4 -} - -proc circ1::c1-1 { num } { - return [circ2::c2-1 $num] -} - -proc circ1::c1-2 { num } { - return [circ2::c2-2 $num] -} - -proc circ1::c1-3 {} { - return 10 -} - -proc circ1::c1-4 {} { - return 20 -} |