summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--tests/main.test7
2 files changed, 11 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index e812b2f..1d87da1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,12 @@
+2003-01-31 Don Porter <dgp@users.sourceforge.net>
+
+ * tests/main.test: Stopped main.test from deleting existing file.
+ Test suite should not delete files that already exist. [Bug 675660]
+
2003-01-28 Don Porter <dgp@users.sourceforge.net>
* tests/main.test: Constrain tests that do not work on Windows.
+ [Bug 674387]
2003-01-28 Vince Darley <vincentdarley@users.sourceforge.net>
diff --git a/tests/main.test b/tests/main.test
index f0ad3c0..c005c41 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -1,6 +1,6 @@
# This file contains a collection of tests for generic/tclMain.c.
#
-# RCS: @(#) $Id: main.test,v 1.11 2003/01/28 17:59:12 dgp Exp $
+# RCS: @(#) $Id: main.test,v 1.12 2003/01/31 18:54:32 dgp Exp $
if {[catch {package require tcltest 2.0.2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -221,7 +221,10 @@ namespace eval ::tcl::test::main {
} -constraints {
exec
} -setup {
- catch {removeFile no-such-file}
+ if {[file exists no-such-file]} {
+ error "Can't run test Tcl_Main-3.1\
+ where a file named \"no-such-file\" exists"
+ }
} -body {
set code [catch {exec [interpreter] no-such-file >& result} result]
set f [open result]