diff options
author | stanton <stanton@noemail.net> | 1999-05-22 01:20:09 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-05-22 01:20:09 (GMT) |
commit | b2b32ae547b69377ed50c0309b1f7f6fd5571a45 (patch) | |
tree | 4b7c61e6c670f227cf4d603907157fb6246d2d50 /tests/cmdAH.test | |
parent | 0499890222c417d23b4ffbb24b6f819f9f80c429 (diff) | |
download | tcl-b2b32ae547b69377ed50c0309b1f7f6fd5571a45.zip tcl-b2b32ae547b69377ed50c0309b1f7f6fd5571a45.tar.gz tcl-b2b32ae547b69377ed50c0309b1f7f6fd5571a45.tar.bz2 |
Merged changes from scriptics-tclpro-1-3-b2 branch
FossilOrigin-Name: f692388d0781830f1c23ef04ebbfb509ecc8d671
Diffstat (limited to 'tests/cmdAH.test')
-rw-r--r-- | tests/cmdAH.test | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 19ef9c4..0ae7156 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.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: cmdAH.test,v 1.5 1999/04/16 00:47:24 stanton Exp $ +# RCS: @(#) $Id: cmdAH.test,v 1.6 1999/05/22 01:20:14 stanton Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -1431,28 +1431,28 @@ test cmdAH-29.5 {Tcl_FileObjCmd: type} { # Error conditions -test cmdAH-30.1 {error conditions} { +test cmdAH-30.1 {Tcl_FileObjCmd: error conditions} { list [catch {file gorp x} msg] $msg } {1 {bad option "gorp": must be atime, attributes, copy, delete, dirname, executable, exists, extension, isdirectory, isfile, join, lstat, mtime, mkdir, nativename, owned, pathtype, readable, readlink, rename, rootname, size, split, stat, tail, type, volumes, or writable}} -test cmdAH-30.2 {error conditions} { +test cmdAH-30.2 {Tcl_FileObjCmd: error conditions} { list [catch {file ex x} msg] $msg } {1 {ambiguous option "ex": must be atime, attributes, copy, delete, dirname, executable, exists, extension, isdirectory, isfile, join, lstat, mtime, mkdir, nativename, owned, pathtype, readable, readlink, rename, rootname, size, split, stat, tail, type, volumes, or writable}} -test cmdAH-30.3 {error conditions} { +test cmdAH-30.3 {Tcl_FileObjCmd: error conditions} { list [catch {file is x} msg] $msg } {1 {ambiguous option "is": must be atime, attributes, copy, delete, dirname, executable, exists, extension, isdirectory, isfile, join, lstat, mtime, mkdir, nativename, owned, pathtype, readable, readlink, rename, rootname, size, split, stat, tail, type, volumes, or writable}} -test cmdAH-30.4 {error conditions} { +test cmdAH-30.4 {Tcl_FileObjCmd: error conditions} { list [catch {file z x} msg] $msg } {1 {bad option "z": must be atime, attributes, copy, delete, dirname, executable, exists, extension, isdirectory, isfile, join, lstat, mtime, mkdir, nativename, owned, pathtype, readable, readlink, rename, rootname, size, split, stat, tail, type, volumes, or writable}} -test cmdAH-30.5 {error conditions} { +test cmdAH-30.5 {Tcl_FileObjCmd: error conditions} { list [catch {file read x} msg] $msg } {1 {ambiguous option "read": must be atime, attributes, copy, delete, dirname, executable, exists, extension, isdirectory, isfile, join, lstat, mtime, mkdir, nativename, owned, pathtype, readable, readlink, rename, rootname, size, split, stat, tail, type, volumes, or writable}} -test cmdAH-30.6 {error conditions} { +test cmdAH-30.6 {Tcl_FileObjCmd: error conditions} { list [catch {file s x} msg] $msg } {1 {ambiguous option "s": must be atime, attributes, copy, delete, dirname, executable, exists, extension, isdirectory, isfile, join, lstat, mtime, mkdir, nativename, owned, pathtype, readable, readlink, rename, rootname, size, split, stat, tail, type, volumes, or writable}} -test cmdAH-30.7 {error conditions} { +test cmdAH-30.7 {Tcl_FileObjCmd: error conditions} { list [catch {file t x} msg] $msg } {1 {ambiguous option "t": must be atime, attributes, copy, delete, dirname, executable, exists, extension, isdirectory, isfile, join, lstat, mtime, mkdir, nativename, owned, pathtype, readable, readlink, rename, rootname, size, split, stat, tail, type, volumes, or writable}} -test cmdAH-30.8 {error conditions} { +test cmdAH-30.8 {Tcl_FileObjCmd: error conditions} { list [catch {file dirname ~woohgy} msg] $msg } {1 {user "woohgy" doesn't exist}} @@ -1460,6 +1460,8 @@ test cmdAH-30.8 {error conditions} { catch {testsetplatform $platform} catch {unset platform} +# Tcl_ForObjCmd is tested in for.test + catch {exec chmod 777 dir.file} file delete -force dir.file file delete gorp.file |