Tcl Source Code

Check-in [024ec31117]
Login

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

Overview
Comment:dup test names
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 024ec311175a57046acfd28706fbc308b5e4fbb4
User & Date: dgp 2013-03-20 15:26:57
Context
2013-03-21
14:30
Remove duplicated tests. The enhancements to fCmd-30.[12] and the new test case fCmd-30.3 were backp... check-in: 7985dfa8d7 user: jan.nijtmans tags: core-8-5-branch
14:28
2102614 Add ensemble indexing support to [auto_mkindex]. Thanks Brian Griffin. check-in: 7a2254a607 user: dgp tags: core-8-5-branch
2013-03-20
15:39
Bring forward tests to trunk check-in: 6dc8fe8244 user: dgp tags: trunk
15:26
dup test names check-in: 024ec31117 user: dgp tags: core-8-5-branch
13:39
Slightly more correct: If FindFirstFile() fails, the error should be "no such file or directory" (EN... check-in: 5ed5ec73c0 user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/fCmd.test.

2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
} -result {exists 1 readable 0 stat 0 {}}

removeFile abc2.file
removeFile abc.file
removeDirectory abc2.dir
removeDirectory abc.dir

test fCmd-30.1 {file writable on 'My Documents'} -constraints {win 2000orNewer} -body {
    set mydocsname "~/My Documents"
    # Would be good to localise this name, since this test will only function
    # on english-speaking windows otherwise
    if {[file exists $mydocsname]} {
	return [file writable $mydocsname]
    }
    return 1
} -result {1}
test fCmd-30.2 {file readable on 'NTUSER.DAT'} -constraints {win 2000orNewer knownBug} -body {
    # Apparently the OS has this file open with exclusive permissions Windows
    # doesn't provide any way to determine that fact without actually trying
    # to open the file (open NTUSER.dat r), which fails. Hence this isn't
    # really a knownBug in Tcl, but an OS limitation. But, perhaps in the
    # future that limitation will be lifted.
    if {[file exists "~/NTUSER.DAT"]} {
	return [file readable "~/NTUSER.DAT"]







|








|







2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
} -result {exists 1 readable 0 stat 0 {}}

removeFile abc2.file
removeFile abc.file
removeDirectory abc2.dir
removeDirectory abc.dir

test fCmd-30.4 {file writable on 'My Documents'} -constraints {win 2000orNewer} -body {
    set mydocsname "~/My Documents"
    # Would be good to localise this name, since this test will only function
    # on english-speaking windows otherwise
    if {[file exists $mydocsname]} {
	return [file writable $mydocsname]
    }
    return 1
} -result {1}
test fCmd-30.5 {file readable on 'NTUSER.DAT'} -constraints {win 2000orNewer knownBug} -body {
    # Apparently the OS has this file open with exclusive permissions Windows
    # doesn't provide any way to determine that fact without actually trying
    # to open the file (open NTUSER.dat r), which fails. Hence this isn't
    # really a knownBug in Tcl, but an OS limitation. But, perhaps in the
    # future that limitation will be lifted.
    if {[file exists "~/NTUSER.DAT"]} {
	return [file readable "~/NTUSER.DAT"]