From d5e40f3d0b99fdef406aecf190d1570e285aea22 Mon Sep 17 00:00:00 2001
From: redman <redman>
Date: Mon, 28 Jun 1999 18:23:21 +0000
Subject: Fixed test suite to call $tcltest::tcltest instead of $::tcltest (for
 the name of the executable).

---
 tests/winDde.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/winDde.test b/tests/winDde.test
index 9b21bdf..b734f82 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: winDde.test,v 1.4 1999/06/26 20:55:18 rjohnson Exp $
+# RCS: @(#) $Id: winDde.test,v 1.5 1999/06/28 18:23:21 redman Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -56,7 +56,7 @@ proc createChildProcess { ddeServerName } {
     }
     close $f
     
-    set f [open "|$::tcltest $::scriptName" r]
+    set f [open "|$tcltest::tcltest $::scriptName" r]
     gets $f
     return $f
 }
-- 
cgit v0.12