diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-09-10 13:50:03 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-09-10 13:50:03 (GMT) |
| commit | a19fa7cdab3e5494e84dd29f64a39ccef1c7e138 (patch) | |
| tree | 8df6e9d9e084d17a6985e397a5e9fd6ae05bd112 /tests/cmdAH.test | |
| parent | b2d9ed24c8428b9c2230515bf13aa76dcfdb607f (diff) | |
| download | tcl-a19fa7cdab3e5494e84dd29f64a39ccef1c7e138.zip tcl-a19fa7cdab3e5494e84dd29f64a39ccef1c7e138.tar.gz tcl-a19fa7cdab3e5494e84dd29f64a39ccef1c7e138.tar.bz2 | |
Use the powers of tcltest2 for good! Also add basic testing of disassmbler
(though not of its output format).
Diffstat (limited to 'tests/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 94f422a..73a8819 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.61 2008/09/08 10:49:04 dkf Exp $ +# RCS: @(#) $Id: cmdAH.test,v 1.62 2008/09/10 13:50:04 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -968,9 +968,8 @@ test cmdAH-20.2 {Tcl_FileObjCmd: atime} -setup { [expr {[file atime $gorpfile] == $stat(atime)}] } -result {1 1} test cmdAH-20.3 {Tcl_FileObjCmd: atime} { - string tolower [list [catch {file atime _bogus_} msg] \ - $msg $errorCode] -} {1 {could not read "_bogus_": no such file or directory} {posix enoent {no such file or directory}}} + list [catch {file atime _bogus_} msg] [string tolower $msg] $errorCode +} {1 {could not read "_bogus_": no such file or directory} {POSIX ENOENT {no such file or directory}}} test cmdAH-20.4 {Tcl_FileObjCmd: atime} -returnCodes error -body { file atime $file notint } -result {expected integer but got "notint"} |