1 files changed, 0 insertions, 23 deletions
diff --git a/tests/pkg1/direct1.tcl b/tests/pkg1/direct1.tcl
deleted file mode 100644
index cc10330..0000000
--- a/tests/pkg1/direct1.tcl
+++ /dev/null
@@ -1,23 +0,0 @@
-# std.tcl --
-#
-#  Test support package for pkg_mkIndex.
-#  This is referenced by pkgIndex.tcl as a -direct script.
-#
-# Copyright (c) 1998 by Scriptics Corporation.
-# All rights reserved.
-# 
-# RCS: @(#) $Id: direct1.tcl,v 1.1 1998/10/17 00:21:44 escoffon Exp $
-
-package provide direct1 1.0
-
-namespace eval direct1 {
-    namespace export pd1 pd2
-}
-
-proc direct1::pd1 { stg } {
-    return [string tolower $stg]
-}
-
-proc direct1::pd2 { stg } {
-    return [string toupper $stg]
-}