view release on metacpan or  search on metacpan

t/pseudo.t  view on Meta::CPAN

use File::Slurp qw(read_file);
use Test::More;

plan tests => 1;

my $proc_file = "/proc/$$/auxv";

SKIP: {
    skip "Can't find pseudo file: $proc_file", 1 unless -r $proc_file;
    my $data_do = do{ local( @ARGV, $/ ) = $proc_file; <> };
    my $data_slurp = read_file($proc_file);
    is($data_do, $data_slurp, 'pseudo');
}