Added contents of Tcl 8.1a2

1 files changed, 4 insertions, 6 deletions

diff --git a/tests/fCmd.test b/tests/fCmd.test
index ae2b8b0..139ecab 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# SCCS: @(#) fCmd.test 1.33 97/11/03 15:58:08
+# SCCS: @(#) fCmd.test 1.37 98/01/18 15:47:02
 #
 
 if {[string compare test [info procs test]] == 1} then {source defs}
@@ -71,8 +71,8 @@ proc cleanup {args} {
 	}
 	foreach file $x {
 	    if {[catch {file delete -force -- $file}]} {
-		openup $file
-		file delete -force -- $file
+		catch {openup $file}
+		catch {file delete -force -- $file}
 	    }
 	}
     }
@@ -2057,9 +2057,6 @@ test fCmd-26.3 { TclDeleteFilesCmd : delete dangling symlink} {unixOnly} {
     set result
 } {1}
 
-test fCmd-27.1 {TclFileAttrsCmd - wrong # args} {
-    list [catch {file attributes a b c d} msg] $msg
-} {1 {wrong # args: must be "file attributes name ?option? ?value? ?option value? ..."}}
 test fCmd-27.2 {TclFileAttrsCmd - Tcl_TranslateFileName fails} {
     testsetplatform unix
     list [catch {file attributes ~_bad_user} msg] $msg [testsetplatform $platform]
@@ -2100,3 +2097,4 @@ test fCmd-27.6 {TclFileAttrsCmd - setting more than one option} {tclGroup} {
 } {0 {} {}}
 
 cleanup
+return