From 2fdc0fc681d2ffe92f526959cf8910e66bc0c2e6 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 7 Aug 2001 00:42:30 +0000
Subject: 	* tests/http.test (http-4.14): fixed variable error return. 
 [Bug: 424252]

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

diff --git a/tests/http.test b/tests/http.test
index e5b43b6..70ca2f6 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -12,7 +12,7 @@
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
 #
-# RCS: @(#) $Id: http.test,v 1.22 2001/05/21 22:30:44 hobbs Exp $
+# RCS: @(#) $Id: http.test,v 1.23 2001/08/07 00:42:30 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -425,7 +425,7 @@ test http-4.14 {http::Event} {
 	http::status $token
     } err]
     # error code varies among platforms.
-    list $code [string match "connect failed*" $err]
+    list $code [regexp {(connect failed|couldn't open socket)} $err]
 } {1 1}
 
 # Bogus host
-- 
cgit v0.12