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 | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4d12cfb47c2408d80d45263efde74203 |
| User & Date: | dkf 2013-03-18 14:30:32 |
Context
|
2013-03-18
| ||
| 18:00 | Test independence in unixFCmd.test check-in: 704a4f5023 user: dgp tags: trunk | |
| 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 | |
|
2013-03-12
| ||
| 08:47 | Patch by Andrew Shadura, providing better support for three architectures they have in Debian. check-in: ab91ada793 user: jan.nijtmans tags: trunk | |
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-11 Don Porter <[email protected]> * generic/tclCompile.c: [Bugs 3607246,3607372] Unbalanced refcounts * generic/tclLiteral.c: of literals in the global literal table. 2013-03-06 Don Porter <[email protected]> |
| ︙ | ︙ |
Changes to tests/cmdAH.test.
| ︙ | ︙ | |||
950 951 952 953 954 955 956 957 958 959 960 961 962 963 |
file attributes /tmp/tcl.foo.dir -permissions 0000
file exists /tmp/tcl.foo.dir/file
} -cleanup {
file attributes /tmp/tcl.foo.dir -permissions 0775
removeFile /tmp/tcl.foo.dir/file
removeDirectory /tmp/tcl.foo.dir
} -result 0
# Stat related commands
catch {testsetplatform $platform}
removeFile $gorpfile
set gorpfile [makeFile "Test string" gorp.file]
catch {file attributes $gorpfile -permissions 0765}
| > > > > > > > > > > > > > | 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 |
file attributes /tmp/tcl.foo.dir -permissions 0000
file exists /tmp/tcl.foo.dir/file
} -cleanup {
file attributes /tmp/tcl.foo.dir -permissions 0775
removeFile /tmp/tcl.foo.dir/file
removeDirectory /tmp/tcl.foo.dir
} -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}
|
| ︙ | ︙ |