* tests/cmdAH.test:

        * tests/exec.test:              Corrected temporary file management
        * tests/fileSystem.test:        issues uncovered by -debug 1 test
        * tests/io.test:                operations.  Also backported some
        * tests/ioCmd.test:             other fixes from the HEAD.
        * tests/main.test:
        * tests/pid.test:               [Bugs 675605, 675655, 675659]
        * tests/socket.test:
        * tests/source.test:

1 files changed, 5 insertions, 5 deletions

diff --git a/tests/source.test b/tests/source.test
index 413c658..828b9da 100644
--- a/tests/source.test
+++ b/tests/source.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: source.test,v 1.9 2003/09/05 21:52:12 dgp Exp $
+# RCS: @(#) $Id: source.test,v 1.10 2003/10/07 21:45:39 dgp Exp $
 
 if {[catch {package require tcltest 2.0.2}]} {
     puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -306,7 +306,7 @@ test source-6.2 {source skips everything after Ctrl-Z: Bug 2040} -setup {
 
 test source-7.1 {source -encoding test} -setup {
     set sourcefile [makeFile {} source.file]
-    removeFile source.file
+    file delete $sourcefile
     set f [open $sourcefile w]
     fconfigure $f -encoding utf-8
     puts $f "set symbol(square-root) \u221A; set x correct"
@@ -326,7 +326,7 @@ test source-7.2 {source -encoding test} -setup {
     # file that contains the byte \x1A, although not the character \u001A in
     # the indicated encoding.
     set sourcefile [makeFile {} source.file]
-    removeFile source.file
+    file delete $sourcefile
     set f [open $sourcefile w]
     fconfigure $f -encoding unicode
     puts $f "set symbol(square-root) \u221A; set x correct"
@@ -354,7 +354,7 @@ test source-7.4 {source -encoding: syntax} -setup {
 
 test source-7.5 {source -encoding: correct operation} -setup {
     set sourcefile [makeFile {} source.file]
-    removeFile source.file
+    file delete $sourcefile
     set f [open $sourcefile w]
     fconfigure $f -encoding utf-8
     puts $f "proc \u20ac {} {return foo}"
@@ -369,7 +369,7 @@ test source-7.5 {source -encoding: correct operation} -setup {
 
 test source-7.6 {source -encoding: mismatch encoding error} -setup {
     set sourcefile [makeFile {} source.file]
-    removeFile source.file
+    file delete $sourcefile
     set f [open $sourcefile w]
     fconfigure $f -encoding utf-8
     puts $f "proc \u20ac {} {return foo}"