Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | [Bug 3608360]: Test to make sure we never let [file exists] do globbing. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
28f6af0a75aa7e00ffae9769dcf0c8bf |
| User & Date: | dkf 2013-03-18 14:25:54 |
Context
|
2013-03-18
| ||
| 17:59 | Test independence in unixFCmd.test. check-in: 459474d587 user: dgp tags: core-8-5-branch | |
| 14:30 | [Bug 3608360]: Test to make sure we never let [file exists] do globbing. check-in: 4d12cfb47c user: dkf tags: trunk | |
| 14:25 | [Bug 3608360]: Test to make sure we never let [file exists] do globbing. check-in: 28f6af0a75 user: dkf tags: core-8-5-branch | |
| 14:22 | [Bug 3608360]: Test to make sure we never let [file exists] do globbing. check-in: d1b80647cd user: dkf tags: core-8-4-branch | |
|
2013-03-12
| ||
| 08:45 | Patch by Andrew Shadura, providing better support for three architectures they have in Debian. check-in: 2544c55254 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to ChangeLog.
1 2 3 | 2013-03-12 Jan Nijtmans <[email protected]> * unix/tcl.m4: Patch by Andrew Shadura, providing better support for | > > > > > | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 2013-03-18 Donal K. Fellows <[email protected]> * tests/cmdAH.test (cmdAH-19.12): [Bug 3608360]: Added test to ensure that we never ever allow [file exists] to do globbing. 2013-03-12 Jan Nijtmans <[email protected]> * unix/tcl.m4: Patch by Andrew Shadura, providing better support for three architectures they have in Debian. 2013-03-06 Don Porter <[email protected]> * generic/regc_nfa.c: [Bugs 3604074,3606683] Rewrite of the * generic/regcomp.c: fixempties() routine (and supporting routines) to completely eliminate the infinite loop hazard. Thanks to Tom Lane for the much improved solution. |
| ︙ | ︙ |
Changes to tests/cmdAH.test.
| ︙ | ︙ | |||
945 946 947 948 949 950 951 952 953 954 955 956 957 958 |
set result [file exists /tmp/tcl.foo.dir/file]
file attributes /tmp/tcl.foo.dir -permissions 0775
removeFile /tmp/tcl.foo.dir/file
removeDirectory /tmp/tcl.foo.dir
set result
} 0
# Stat related commands
catch {testsetplatform $platform}
removeFile $gorpfile
set gorpfile [makeFile "Test string" gorp.file]
catch {file attributes $gorpfile -permissions 0765}
| > > > > > > > > > > > > > | 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 |
set result [file exists /tmp/tcl.foo.dir/file]
file attributes /tmp/tcl.foo.dir -permissions 0775
removeFile /tmp/tcl.foo.dir/file
removeDirectory /tmp/tcl.foo.dir
set result
} 0
test cmdAH-19.12 {Bug 3608360: [file exists] mustn't do globbing} -setup {
set newdirfile [makeDirectory newdir.file]
set cwd [pwd]
cd $newdirfile
# Content of file is totally unimportant; name is *not*
set innocentBystander [makeFile "abc" [file join $newdirfile foo.bar]]
} -body {
list [file exists foo.bar] [file exists *.bar]
} -cleanup {
cd $cwd
removeFile $innocentBystander
removeDirectory $newdirfile
} -result {1 0}
# Stat related commands
catch {testsetplatform $platform}
removeFile $gorpfile
set gorpfile [makeFile "Test string" gorp.file]
catch {file attributes $gorpfile -permissions 0765}
|
| ︙ | ︙ |