Posted to tcl by patthoyts at Mon Nov 23 23:45:14 GMT 2009view raw
- test fCmd-30.2 {file readable on 'NTUSER.DAT'} -constraints {win} -body {
- expr {[info exists env(USERPROFILE)]
- && [file exists $env(USERPROFILE)/NTUSER.DAT]
- && [file readable $env(USERPROFILE)/NTUSER.DAT]}
- } -result {1}
- test fCmd-30.3 {file readable on 'pagefile.sys'} -constraints {win} -body {
- set r {}
- if {[info exists env(SystemDrive)]} {
- set path $env(SystemDrive)/pagefile.sys
- lappend r exists [file exists $path]
- lappend r readable [file readable $path]
- lappend r stat [catch {file stat $path a} e] $e
- }
- return $r
- } -result {exists 1 readable 0 stat 0 {}}