]> git.refcnt.org Git - colorize.git/blobdiff - t/merge.t
Omit declaration of optind/optarg
[colorize.git] / t / merge.t
index 1f1ba56551448be6d09e9065d2d208219eb494b8..a234b126d7c28710b270c3cbfdc634bf05071e1c 100755 (executable)
--- a/t/merge.t
+++ b/t/merge.t
@@ -2,9 +2,11 @@
 
 use strict;
 use warnings;
+use lib qw(lib);
 use constant true  => 1;
 use constant false => 0;
 
+use Colorize::Common ':defaults';
 use File::Temp qw(tmpnam);
 use Test::More;
 
@@ -94,8 +96,6 @@ $tests += @merge_fail;
 $tests += @buffer;
 $tests += @pushback;
 
-my $source = 'colorize.c';
-my $compiler = 'gcc';
 my %programs;
 
 my $compile = sub
@@ -103,7 +103,7 @@ my $compile = sub
     my ($buf_size) = @_;
     return true if exists $programs{$buf_size};
     my $program = tmpnam();
-    return false unless system("$compiler -DTEST_MERGE_PART_LINE -DBUF_SIZE=$buf_size -o $program $source") == 0;
+    return false unless system("$compiler -DTEST -DTEST_MERGE_PART_LINE -DBUF_SIZE=$buf_size -o $program $source") == 0;
     $programs{$buf_size} = $program;
     return true; # compiling succeeded
 };
@@ -117,10 +117,10 @@ my $test_name = sub
     return "$sequence: $substr";
 };
 
-plan tests => $tests;
-
 my $compiling_failed_msg = 'compiling failed (merge part line)';
 
+plan tests => $tests;
+
 foreach my $test (@merge_success) {
     foreach my $buf_size (@{$test->[1]}) {
         SKIP: {
@@ -147,7 +147,7 @@ foreach my $test (@pushback) {
     my $buf_size = $test->[1];
     SKIP: {
         my $program = tmpnam();
-        skip $compiling_failed_msg, 1 unless system("$compiler -DBUF_SIZE=$buf_size -o $program $source") == 0;
+        skip $compiling_failed_msg, 1 unless system("$compiler -DTEST -DBUF_SIZE=$buf_size -o $program $source") == 0;
         ok(qx(printf %s "$test->[0]" | $program --clean) eq $test->[0], 'pushback: ' . $test_name->($test->[0], $buf_size));
         unlink $program;
     }