summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorredman <redman>1999-07-27 01:42:21 (GMT)
committerredman <redman>1999-07-27 01:42:21 (GMT)
commitfd9ef8bf5fa340e0b2995c55613fbaa12653dbb0 (patch)
tree9f2d4d9a9a9b32df258998390716ed7d9de546d0 /tests
parent1f5265171e2ddeade8350713feba432d2d862d2f (diff)
downloadtcl-fd9ef8bf5fa340e0b2995c55613fbaa12653dbb0.zip
tcl-fd9ef8bf5fa340e0b2995c55613fbaa12653dbb0.tar.gz
tcl-fd9ef8bf5fa340e0b2995c55613fbaa12653dbb0.tar.bz2
Bug fixes for threaded Tcl on NT with single and dual CPUs. Still some
open issues, this code is a little more stable though.
Diffstat (limited to 'tests')
-rw-r--r--tests/httpold.test3
-rwxr-xr-xtests/tcltest.test5
-rw-r--r--tests/winFCmd.test6
3 files changed, 9 insertions, 5 deletions
diff --git a/tests/httpold.test b/tests/httpold.test
index 50bb152..3e8aa76 100644
--- a/tests/httpold.test
+++ b/tests/httpold.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: httpold.test,v 1.5 1999/06/26 03:54:14 jenn Exp $
+# RCS: @(#) $Id: httpold.test,v 1.6 1999/07/27 01:42:23 redman Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -79,6 +79,7 @@ proc httpdRead { sock } {
if [regexp {(POST|GET|HEAD) ([^?]+)\??([^ ]*) HTTP/1.0} \
$line x data(proto) data(url) data(query)] {
set data(state) mime
+ after 10
httpd_log $sock Query $line
} else {
httpdError $sock 400
diff --git a/tests/tcltest.test b/tests/tcltest.test
index 74c5b1b..6229d46 100755
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -10,7 +10,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.test,v 1.1 1999/07/26 17:59:12 jenn Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.2 1999/07/27 01:42:23 redman Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -252,7 +252,8 @@ makeFile {
package require tcltest
namespace import ::tcltest::*
test makecore {make a core file} {
- open core w
+ set f [open core w]
+ close $f
} {}
::tcltest::cleanupTests
return
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index 249c3bd..61dc707 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: winFCmd.test,v 1.7 1999/07/01 17:36:20 jenn Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.8 1999/07/27 01:42:24 redman Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -297,9 +297,11 @@ test winFCmd-1.33 {TclpRenameFile: After removing dst dir, MoveFile fails} \
{pcOnly exdev} {
file mkdir d:/td1
testchmod 000 d:/td1
- set msg [list [catch {testfile mv c:/windows d:/td1} msg] $msg]
+ file mkdir c:/tf1
+ set msg [list [catch {testfile mv c:/tf1 d:/td1} msg] $msg]
set msg "$msg [file writable d:/td1]"
file delete d:/td1
+ file delete -force c:/tf1
set msg
} {1 EXDEV 0}
test winFCmd-1.34 {TclpRenameFile: src is dir, dst is not} {pcOnly} {