Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

#!/usr/bin/env perl
use v5.12.5;
our $VERSION = '9999.99.99_99'; # VERSION
use Test::More tests => 4;
$::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 );