The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;

use Rex::Commands;
use Rex::Commands::Run;

$::QUIET = 1;

my $command = ( $^O =~ /MSWin/ ) ? 'dir' : 'ls -l';
run($command);

my $s = last_command_output();
like( $s, qr/ChangeLog/ms );

$command .= ' t';
run($command);

$s = last_command_output();
unlike( $s, qr/ChangeLog/ms );
like( $s, qr/auth\.t/ms );