From f7980cfc202d708d1a31abf81576539ecddf63a3 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Mon, 27 Mar 2000 22:19:14 +0000
Subject: 	* tests/httpd: removed unnecessary 'puts stderr "Post
 Dispatch"'

	* tests/namespace.test:
	* generic/tclNamesp.c (Tcl_Export): added a uniq'ing test to the
	export list so only one instance of each export pattern would
	exist in the list.


FossilOrigin-Name: 2188389346676c5831880161a1384ddee2407471
---
 tests/httpd          | 1 -
 tests/namespace.test | 6 +++---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/tests/httpd b/tests/httpd
index 94cfb43..aa2e51d 100644
--- a/tests/httpd
+++ b/tests/httpd
@@ -106,7 +106,6 @@ proc httpdRead { sock } {
 		set data(length) $data(length_orig)
 		httpdRespond $sock
 	    }
-puts stderr "Post Dispatch"
 	}
 	default {
 	    if [eof $sock] {
diff --git a/tests/namespace.test b/tests/namespace.test
index dcc6671..7f855c9 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: namespace.test,v 1.9 2000/01/26 21:36:36 ericm Exp $
+# RCS: @(#) $Id: namespace.test,v 1.10 2000/03/27 22:19:14 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -803,11 +803,11 @@ test namespace-26.5 {NamespaceExportCmd, sequence of patterns, patterns accumula
     }
     list [info commands test_ns_2::*] [test_ns_2::cmd3 hello]
 } {{::test_ns_2::cmd1 ::test_ns_2::cmd3} {cmd3: hello}}
-test namespace-26.6 {NamespaceExportCmd, no patterns means return export list} {
+test namespace-26.6 {NamespaceExportCmd, no patterns means return uniq'ed export list} {
     namespace eval test_ns_1 {
         namespace export
     }
-} {cmd1 cmd1 cmd3}
+} {cmd1 cmd3}
 test namespace-26.7 {NamespaceExportCmd, -clear resets export list} {
     namespace eval test_ns_1 {
         namespace export -clear cmd4
-- 
cgit v0.12