use constant false => 0;
use Colorize::Common qw(:defaults $compiler_flags %BUF_SIZE $valgrind_command $write_to_tmpfile);
+use File::Find;
use File::Temp qw(tmpnam);
use Getopt::Long qw(:config no_auto_abbrev no_ignore_case);
use Test::Harness qw(runtests);
use Test::More;
-my $tests = 30;
+my $tests = 32;
my $valgrind_cmd = '';
{
}
{
- my @test_files = glob('t/*.t');
- eval { runtests(@test_files) } or warn $@;
+ my @test_files;
+ find ({ wanted => sub { push @test_files, $File::Find::name if /\.t$/ } }, 't');
+ eval { runtests(sort @test_files) } or warn $@;
}
plan tests => $tests;
}
ok(qx(printf %s "\e[\e[33m" | $valgrind_cmd$program $switch) eq "\e[", "$type with invalid sequence");
+
+ {
+ my $ok = true;
+ foreach my $option (qw(--attr=bold --exclude-random=black --omit-color-empty)) {
+ $ok &= qx($valgrind_cmd$program $option $switch $infile1 2>&1 >/dev/null) =~ /switch has no meaning with/;
+ }
+ ok($ok, "$type strict options");
+ }
};
$check_clean->($_) foreach qw(clean clean-all);