|
Packit |
be8974 |
#!/usr/local/bin/perl -w
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
use strict ;
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
use File::Slurp ;
|
|
Packit |
be8974 |
use Carp ;
|
|
Packit |
be8974 |
use Test::More ;
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
plan( tests => 1 ) ;
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
my $proc_file = "/proc/$$/auxv" ;
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
SKIP: {
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
unless ( -r $proc_file ) {
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
skip "can't find pseudo file $proc_file", 1 ;
|
|
Packit |
be8974 |
}
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
test_pseudo_file() ;
|
|
Packit |
be8974 |
}
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
sub test_pseudo_file {
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
my $data_do = do{ local( @ARGV, $/ ) = $proc_file; <> } ;
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
#print "LEN: ", length $data_do, "\n" ;
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
my $data_slurp = read_file( $proc_file ) ;
|
|
Packit |
be8974 |
#print "LEN2: ", length $data_slurp, "\n" ;
|
|
Packit |
be8974 |
#print "LEN3: ", -s $proc_file, "\n" ;
|
|
Packit |
be8974 |
|
|
Packit |
be8974 |
is( $data_do, $data_slurp, 'pseudo' ) ;
|
|
Packit |
be8974 |
}
|