diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-31 17:07:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-31 17:07:11 (GMT) |
| commit | 63682278199543f20a99cb0c9ee10944384ce23f (patch) | |
| tree | aae66fd1ef393c7963f9cf9b1524b5d185669da6 /tests/cmdAH.test | |
| parent | 2282409ca3414a57fa47500d32ce4dc879f4425a (diff) | |
| download | tcl-63682278199543f20a99cb0c9ee10944384ce23f.zip tcl-63682278199543f20a99cb0c9ee10944384ce23f.tar.gz tcl-63682278199543f20a99cb0c9ee10944384ce23f.tar.bz2 | |
Remove broken test constraint. [bug 1053908]
Diffstat (limited to 'tests/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index a448874..e7e77a4 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.45 2004/10/25 21:52:42 dkf Exp $ +# RCS: @(#) $Id: cmdAH.test,v 1.46 2004/10/31 17:07:12 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -359,7 +359,7 @@ test cmdAH-8.44 {Tcl_FileObjCmd: dirname} testsetplatform { set result } {0 ~} test cmdAH-8.45 {Tcl_FileObjCmd: dirname} { - -constraints {Tcltest testsetplatform} + -constraints testsetplatform -match regexp -setup { set temp $::env(HOME) @@ -374,7 +374,6 @@ test cmdAH-8.45 {Tcl_FileObjCmd: dirname} { } -result {([a-zA-Z]:?)/homewontexist} } - test cmdAH-8.46 {Tcl_FileObjCmd: dirname} { set f [file normalize [info nameof]] file exists $f |