File: fake_read_failure.t

package info (click to toggle)
libtest-aggregate-perl 0.371-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 264 kB
  • ctags: 62
  • sloc: perl: 1,201; makefile: 2
file content (4 lines) | stat: -rw-r--r-- 173 bytes parent folder | download 
1
2
3
4
 
# Simulate a test script that exists but fails to read:
# Set $! accordingly and don't run any tests.

{ open(my $fh, '<', 'a-file-that-almost-certainly-does.not.exist'); }