File: pseudo.t

package info (click to toggle)
libfile-slurp-perl 9999.32-2.1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 412 kB
  • sloc: perl: 650; makefile: 39
file content (21 lines) | stat: -rw-r--r-- 526 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
use warnings;

use File::Basename ();
use File::Spec ();
use lib File::Spec->catdir(File::Spec->rel2abs(File::Basename::dirname(__FILE__)), 'lib');
use FileSlurpTest qw(temp_file_path);

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');
}