Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Test independence in unixFCmd.test |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
704a4f5023d9536ff2387d6538ef45e1 |
| User & Date: | dgp 2013-03-18 18:00:12 |
Context
|
2013-03-18
| ||
| 18:37 | Test independence in fileSystem.test check-in: 5db36f952e user: dgp tags: trunk | |
| 18:00 | Test independence in unixFCmd.test check-in: 704a4f5023 user: dgp tags: trunk | |
| 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 | |
Changes
Changes to tests/unixFCmd.test.
| ︙ | ︙ | |||
361 362 363 364 365 366 367 |
file attributes foo.test -permissions ---rwx
} -cleanup {
file delete -force -- foo.test
} -returnCodes error -result {unknown permission string format "---rwx"}
close [open foo.test w]
set ::i 4
| | > > | > > | < < < | | 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 |
file attributes foo.test -permissions ---rwx
} -cleanup {
file delete -force -- foo.test
} -returnCodes error -result {unknown permission string format "---rwx"}
close [open foo.test w]
set ::i 4
proc permcheck {testnum permList expected} {
test $testnum {SetPermissionsAttribute} {unix notRoot} {
set result {}
foreach permstr $permList {
file attributes foo.test -permissions $permstr
lappend result [file attributes foo.test -permissions]
}
set result
} $expected
}
permcheck unixFCmd-17.5 rwxrwxrwx 00777
permcheck unixFCmd-17.6 r--r---w- 00442
permcheck unixFCmd-17.7 {0 u+rwx,g+r u-w o+rwx} {00000 00740 00540 00547}
permcheck unixFCmd-17.11 --x--x--x 00111
permcheck unixFCmd-17.12 {0 a+rwx} {00000 00777}
file delete -force -- foo.test
test unixFCmd-18.1 {Unix pwd} -constraints {unix notRoot nonPortable} -setup {
set cd [pwd]
} -body {
# This test is nonportable because SunOS generates a weird error
# message when the current directory isn't readable.
|
| ︙ | ︙ |