1 #!/usr/local/bin/perl -w
10 my $proc_file = "/proc/$$/auxv" ;
13 use_ok( 'File::Slurp' ) ;
18 unless ( -r $proc_file ) {
20 skip "can't find pseudo file $proc_file", 1 ;
26 sub test_pseudo_file {
28 my $data_do = do{ local( @ARGV, $/ ) = $proc_file; <> } ;
30 my $data_slurp = read_file( $proc_file ) ;
32 is( $data_do, $data_slurp, 'pseudo' ) ;