From d0cbcca3ff8568a86a10630b2751e6b201fd11ab Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 31 Jan 2003 18:54:32 +0000 Subject: * tests/main.test: Stopped main.test from deleting existing file. Test suite should not delete files that already exist. [Bug 675660] --- ChangeLog | 6 ++++++ tests/main.test | 7 +++++-- 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 + + * 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 * tests/main.test: Constrain tests that do not work on Windows. + [Bug 674387] 2003-01-28 Vince Darley 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] -- cgit v0.12