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 )