diff options
Diffstat (limited to 'test.pl')
| -rwxr-xr-x | test.pl | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -17,7 +17,7 @@ my %BUF_SIZE = ( short => 10, ); my $source = 'colorize.c'; -my $warning_flags = '-Wall -Wextra -Wformat -Wswitch-default -Wuninitialized -Wunused -Wno-unused-function -Wno-unused-parameter'; +my $compiler_flags = '-ansi -pedantic -Wall -Wextra -Wformat -Wswitch-default -Wuninitialized -Wunused -Wno-unused-function -Wno-unused-parameter'; my $write_to_tmpfile = sub { @@ -35,8 +35,12 @@ plan tests => $tests; SKIP: { skip "$source does not exist", $tests unless -e $source; + my $binary = tmpnam(); + skip 'compiling failed', $tests unless system("gcc $compiler_flags -o $binary $source") == 0; + unlink $binary; + my $program = tmpnam(); - skip 'compiling failed (normal)', $tests unless system("gcc -DTEST -DBUF_SIZE=$BUF_SIZE{normal} $warning_flags -o $program $source") == 0; + skip 'compiling failed (normal)', $tests unless system("gcc -DTEST -DBUF_SIZE=$BUF_SIZE{normal} -o $program $source") == 0; is(system("$program --help >/dev/null 2>&1"), 0, 'exit value for help screen'); @@ -139,7 +143,7 @@ SKIP: { SKIP: { my $program_buf = tmpnam(); - skip 'compiling failed (short buffer)', 2 unless system("gcc -DTEST -DBUF_SIZE=$BUF_SIZE{short} $warning_flags -o $program_buf $source") == 0; + skip 'compiling failed (short buffer)', 2 unless system("gcc -DTEST -DBUF_SIZE=$BUF_SIZE{short} -o $program_buf $source") == 0; $check_clean_buf->($program_buf, $_) foreach qw(clean clean-all); unlink $program_buf; } |