diff options
| author | vincentdarley <vincentdarley> | 2003-12-12 17:02:51 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-12-12 17:02:51 (GMT) |
| commit | 4b258259b47bd0beac3084e2ec7963668038e88c (patch) | |
| tree | b536b3870303291e6cdcd6d8fadc63ecad365822 /tests/fileName.test | |
| parent | c91bfc53bfc42c619f31d2f0d69ddcbdfdc3e944 (diff) | |
| download | tcl-4b258259b47bd0beac3084e2ec7963668038e88c.zip tcl-4b258259b47bd0beac3084e2ec7963668038e88c.tar.gz tcl-4b258259b47bd0beac3084e2ec7963668038e88c.tar.bz2 | |
new filesystem tests
Diffstat (limited to 'tests/fileName.test')
| -rw-r--r-- | tests/fileName.test | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index e75a1b7..1a636c6 100644 --- a/tests/fileName.test +++ b/tests/fileName.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: fileName.test,v 1.33 2003/10/13 16:48:07 vincentdarley Exp $ +# RCS: @(#) $Id: fileName.test,v 1.34 2003/12/12 17:02:51 vincentdarley Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1899,8 +1899,15 @@ test filename-16.1 {windows specific globbing} {pcOnly} { lsort [glob globTest/*.bat] } {globTest/x1.BAT globTest/y1.Bat globTest/z1.bat} test filename-16.2 {windows specific globbing} {pcOnly} { - glob c: -} c: + list [catch {glob c:} res] $res +} {0 c:} +test filename-16.2.1 {windows specific globbing} {pcOnly} { + set dir [pwd] + cd C:/ + set res [list [catch {glob c:} err] $err] + cd $dir + set res +} {0 c:} test filename-16.3 {windows specific globbing} {pcOnly} { glob c:\\\\ } c:/ |