App-vl

 view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

    note $stdout if $ENV{AUTHOR_TEST};
    like $stdout, qr/ PID: 605/;
    like $stdout, qr/ TTY: pts\/6/;
    like $stdout, qr/TIME: 00:00:00/;
    like $stdout, qr/ CMD: bash/;
}

CMD_PS_AUX: {
    my $str = <<_TABLE_;
USER       PID %CPU %MEM    VSZ   RSS TTY      STAT START   TIME COMMAND
root         1  0.0  0.0  19232   464 ?        Ss    2016   0:24 /sbin/init
_TABLE_
    open my $IN, '<', \$str;
    local *STDIN = *$IN;
    my ($stdout, $stderr) = capture {
        App::vl->new('--no-pager', '--ps')->run;
    };
    close $IN;
    note $stdout if $ENV{AUTHOR_TEST};
    like $stdout, qr/   USER: root/;
    like $stdout, qr/    PID: 1/;
    like $stdout, qr/   %CPU: 0\.0/;
    like $stdout, qr/   %MEM: 0\.0/;
    like $stdout, qr/    VSZ: 19232/;
    like $stdout, qr/    RSS: 464/;
    like $stdout, qr/    TTY: \?/;
    like $stdout, qr/   STAT: Ss/;
    like $stdout, qr/  START: 2016/;
    like $stdout, qr/   TIME: 0:24/;
    like $stdout, qr/COMMAND: \/sbin\/init/;
}

GREP_LINES: {
    my $str = <<_TABLE_;
 LABEL  FOO  BAR
 1      2    3
 4      5    6789
_TABLE_
    open my $IN, '<', \$str;



( run in 1.946 second using v1.01-cache-2.11-cpan-7add2cbd662 )