Tcl Source Code

Check-in [617e292a69]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:merge/reintegrate test-cases from bug-9e6b569963
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | sebres-bug-9e6b569963-8-5-branch
Files: files | file ages | folders
SHA3-256: 617e292a6961e82c93ed0008bb211e43232bb156a49fd3b887e0781a5d64f2d7
User & Date: sebres 2018-05-25 10:04:01
Context
2018-05-25
15:04
optimized winapi-stubs loading (8.5th only); if user name specified without domain and equals the cu... check-in: 19abe5efa2 user: sebres tags: sebres-bug-9e6b569963-8-5-branch
10:04
merge/reintegrate test-cases from bug-9e6b569963 check-in: 617e292a69 user: sebres tags: sebres-bug-9e6b569963-8-5-branch
2018-05-24
20:51
Remove test filesystem-1.30.3, this is unstestable check-in: 88b6a0b3db user: fvogel tags: bug-9e6b569963
20:49
[9e6b569963] win: if user specified without domain (and local user was not found), try to resolve us... check-in: d6a73c524c user: sebres tags: sebres-bug-9e6b569963-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/fileSystem.test.

264
265
266
267
268
269
270






271
272
273
274
275
276
277
file delete -force [file join dir.dir dirinside.link]
removeFile [file join dir.dir inside.file]
removeDirectory [file join dir.dir dirinside.dir]
removeDirectory dir.dir
test filesystem-1.30 {normalisation of nonexistent user} {
    list [catch {file normalize ~noonewiththisname} err] $err
} {1 {user "noonewiththisname" doesn't exist}}






test filesystem-1.31 {link normalisation: link near filesystem root} {testsetplatform} {
    testsetplatform unix
    file normalize /foo/../bar
} {/bar}
test filesystem-1.32 {link normalisation: link near filesystem root} {testsetplatform} {
    testsetplatform unix
    file normalize /../bar






>
>
>
>
>
>







264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
file delete -force [file join dir.dir dirinside.link]
removeFile [file join dir.dir inside.file]
removeDirectory [file join dir.dir dirinside.dir]
removeDirectory dir.dir
test filesystem-1.30 {normalisation of nonexistent user} {
    list [catch {file normalize ~noonewiththisname} err] $err
} {1 {user "noonewiththisname" doesn't exist}}
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 [email protected]} -body {
    file normalize [email protected]
} -returnCodes error -result {user "[email protected]" doesn't exist}
test filesystem-1.31 {link normalisation: link near filesystem root} {testsetplatform} {
    testsetplatform unix
    file normalize /foo/../bar
} {/bar}
test filesystem-1.32 {link normalisation: link near filesystem root} {testsetplatform} {
    testsetplatform unix
    file normalize /../bar