Tcl Source Code

Check-in [88b6a0b3db]
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:Remove test filesystem-1.30.3, this is unstestable
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-9e6b569963
Files: files | file ages | folders
SHA3-256: 88b6a0b3db5b894c497caad11232fb3a2d49389024a7fcf40f644d30a7cd725e
User & Date: fvogel 2018-05-24 20:51:45
Context
2018-05-28
13:39
reintegrate 8.6 (after merge with sebres-bug-9e6b569963-8-5-branch) back to bug-9e6b569963 (acceptin... Closed-Leaf check-in: c471b6d83a user: sebres tags: bug-9e6b569963
2018-05-25
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
2018-05-23
21:08
Add support for ~domain\user style user names, with new test test filesystem-1.30.3. Warning: does n... check-in: adbe7e0e07 user: fvogel tags: bug-9e6b569963
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/fileSystem.test.

266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
} -returnCodes error -result {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.30.3 {normalisation of nonexistent user specified as domain\user} -body {
    file normalize ~nonexistentdomain\\nonexistentuser
} -returnCodes error -result {user "nonexistentdomain\nonexistentuser" 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






<
<
<







266
267
268
269
270
271
272



273
274
275
276
277
278
279
} -returnCodes error -result {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