X-Git-Url: http://git.refcnt.org/?p=colorize.git;a=blobdiff_plain;f=t%2Fmerge.t;h=74db86bc109470bf156edf536f70ad0cebb84f03;hp=8a4aee3af7bd2cec4470812e031be189f891a6cb;hb=bf223df46d9b78354c2045170e93385efe73a7f4;hpb=02ff24b4d080945fa5b5eecd8b57780b0035ecea

diff --git a/t/merge.t b/t/merge.t
index 8a4aee3..74db86b 100755
--- a/t/merge.t
+++ b/t/merge.t
@@ -95,6 +95,7 @@ $tests += @buffer;
 $tests += @pushback;
 
 my $source = 'colorize.c';
+my $compiler = 'gcc';
 my %programs;
 
 my $compile = sub
@@ -102,7 +103,7 @@ my $compile = sub
     my ($buf_size) = @_;
     return true if exists $programs{$buf_size};
     my $program = tmpnam();
-    return false unless system("gcc -DTEST_MERGE_PART_LINE -DBUF_SIZE=$buf_size -o $program $source") == 0;
+    return false unless system("$compiler -DTEST_MERGE_PART_LINE -DBUF_SIZE=$buf_size -o $program $source") == 0;
     $programs{$buf_size} = $program;
     return true; # compiling succeeded
 };
@@ -144,7 +145,7 @@ foreach my $test (@pushback) {
     my $buf_size = $test->[1];
     SKIP: {
         my $program = tmpnam();
-        skip 'compiling failed (merge part line)', 1 unless system("gcc -DBUF_SIZE=$buf_size -o $program $source") == 0;
+        skip 'compiling failed (merge part line)', 1 unless system("$compiler -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;
     }