Added the pkg_mkIndex test suite

1 files changed, 25 insertions, 0 deletions

diff --git a/tests/pkg/circ3.tcl b/tests/pkg/circ3.tcl
new file mode 100644
index 0000000..ddcb691
--- /dev/null
+++ b/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: circ3.tcl,v 1.1 1998/10/17 00:21:40 escoffon Exp $
+
+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]
+}