Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added test case to the test suite |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-3414754 |
| Files: | files | file ages | folders |
| SHA1: |
98005cd50d44fc789f5f058067bcebba |
| User & Date: | dgp 2011-10-27 15:08:24 |
Context
|
2011-10-27
| ||
| 21:16 | CONST-ification update. check-in: 1df7c85892 user: dgp tags: bug-3414754 | |
| 15:08 | Added test case to the test suite check-in: 98005cd50d user: dgp tags: bug-3414754 | |
| 14:03 | Proposed fix for 3414754 check-in: acbf3262a4 user: dgp tags: bug-3414754 | |
Changes
Changes to tests/fileSystem.test.
| ︙ | ︙ | |||
1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 |
lappend res [catch {file exists $file2} r] $r
lappend res [string equal $file1 $file2]
cd ..
file delete -force tilde
cd $origdir
set res
} {0 0 0 0 1}
cleanupTests
unset -nocomplain drive
}
namespace delete ::tcl::test::fileSystem
return
| > > > > | 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 |
lappend res [catch {file exists $file2} r] $r
lappend res [string equal $file1 $file2]
cd ..
file delete -force tilde
cd $origdir
set res
} {0 0 0 0 1}
test filesystem-10.1 {Bug 3414754} {
string match */ [file join [pwd] foo/]
} 0
cleanupTests
unset -nocomplain drive
}
namespace delete ::tcl::test::fileSystem
return
|