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

use_ok 'Rex::Commands';
use_ok 'Rex::Commands::Run';

$::QUIET = 1;

Rex::Commands->import;
Rex::Commands::Run->import;

if ( $^O =~ /MSWin/ ) {
  run("dir");
}
else {
  run("ls -l");
}

my $s = last_command_output();
ok( $s =~ m/Makefile\.PL/gms );

if ( $^O =~ /MSWin/ ) {
  run("dir t");
}
else {
  run("ls -l t");
}

$s = last_command_output();
ok( $s !~ m/Makefile\.PL/gms );
ok( $s =~ m/base\.t/gms );