Posted to tcl by patthoyts at Mon Nov 23 23:45:14 GMT 2009view raw

  1. test fCmd-30.2 {file readable on 'NTUSER.DAT'} -constraints {win} -body {
  2. expr {[info exists env(USERPROFILE)]
  3. && [file exists $env(USERPROFILE)/NTUSER.DAT]
  4. && [file readable $env(USERPROFILE)/NTUSER.DAT]}
  5. } -result {1}
  6. test fCmd-30.3 {file readable on 'pagefile.sys'} -constraints {win} -body {
  7. set r {}
  8. if {[info exists env(SystemDrive)]} {
  9. set path $env(SystemDrive)/pagefile.sys
  10. lappend r exists [file exists $path]
  11. lappend r readable [file readable $path]
  12. lappend r stat [catch {file stat $path a} e] $e
  13. }
  14. return $r
  15. } -result {exists 1 readable 0 stat 0 {}}