diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-05-19 07:10:43 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-05-19 07:10:43 (GMT) |
| commit | dffe6bc7f17cc047da64213a097fe2f9b3a58865 (patch) | |
| tree | fba6394309994af0d3840df7772d0e8b999a5d92 /tests/fileSystem.test | |
| parent | 423f761169b37ab7bd60fa145f1b2a63c4075db0 (diff) | |
| download | tcl-dffe6bc7f17cc047da64213a097fe2f9b3a58865.zip tcl-dffe6bc7f17cc047da64213a097fe2f9b3a58865.tar.gz tcl-dffe6bc7f17cc047da64213a097fe2f9b3a58865.tar.bz2 | |
Add test filesystem-1.30.2 {normalisation of nonexistent user specified as user@domain}
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index edc1df2..f778112 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -267,6 +267,9 @@ test filesystem-1.30 {normalisation of nonexistent user} -body { test filesystem-1.30.1 {normalisation of existing user} -body { catch {file normalize ~$::tcl_platform(user)} } -result {0} +test filesystem-1.30.2 {normalisation of nonexistent user specified as user@domain} -body { + file normalize ~nonexistentuser@nonexistentdomain +} -returnCodes error -result {user "nonexistentuser@nonexistentdomain" doesn't exist} test filesystem-1.31 {link normalisation: link near filesystem root} {testsetplatform} { testsetplatform unix file normalize /foo/../bar |