X-Git-Url: http://git.refcnt.org/?a=blobdiff_plain;f=t%2Fmerge.t;h=848c0223c035ba4d3d0499f3dae3eaba5e8fc15f;hb=fd286538c23b3d28dc7aa0165fdb54456042d0fe;hp=fe73c2bfdcef74727b09ecd9daae695c13d2a941;hpb=bc0e7ee4a3198101dbe71fe050ae2bc0eaa8aa8f;p=colorize.git

diff --git a/t/merge.t b/t/merge.t
index fe73c2b..848c022 100755
--- a/t/merge.t
+++ b/t/merge.t
@@ -2,44 +2,47 @@
 
 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;
 
 # sequence, buffer sizes
 my @merge_success = (
-    [ "\e[30m",   [ 1..4 ] ],
-    [ "\e[31m",   [ 1..4 ] ],
-    [ "\e[32m",   [ 1..4 ] ],
-    [ "\e[33m",   [ 1..4 ] ],
-    [ "\e[34m",   [ 1..4 ] ],
-    [ "\e[35m",   [ 1..4 ] ],
-    [ "\e[36m",   [ 1..4 ] ],
-    [ "\e[37m",   [ 1..4 ] ],
-    [ "\e[39m",   [ 1..4 ] ],
-    [ "\e[1;30m", [ 1..6 ] ],
-    [ "\e[1;31m", [ 1..6 ] ],
-    [ "\e[1;32m", [ 1..6 ] ],
-    [ "\e[1;33m", [ 1..6 ] ],
-    [ "\e[1;34m", [ 1..6 ] ],
-    [ "\e[1;35m", [ 1..6 ] ],
-    [ "\e[1;36m", [ 1..6 ] ],
-    [ "\e[1;37m", [ 1..6 ] ],
-    [ "\e[1;39m", [ 1..6 ] ],
-    [ "\e[40m",   [ 1..4 ] ],
-    [ "\e[41m",   [ 1..4 ] ],
-    [ "\e[42m",   [ 1..4 ] ],
-    [ "\e[43m",   [ 1..4 ] ],
-    [ "\e[44m",   [ 1..4 ] ],
-    [ "\e[45m",   [ 1..4 ] ],
-    [ "\e[46m",   [ 1..4 ] ],
-    [ "\e[47m",   [ 1..4 ] ],
-    [ "\e[49m",   [ 1..4 ] ],
-    [ "\e[0m",    [ 1..3 ] ],
-    [ "\e[m",     [ 1..2 ] ],
-    [ "\e[;;m",   [ 1..4 ] ],
+    [ "\e[30m",     [ 1..4 ] ],
+    [ "\e[31m",     [ 1..4 ] ],
+    [ "\e[32m",     [ 1..4 ] ],
+    [ "\e[33m",     [ 1..4 ] ],
+    [ "\e[34m",     [ 1..4 ] ],
+    [ "\e[35m",     [ 1..4 ] ],
+    [ "\e[36m",     [ 1..4 ] ],
+    [ "\e[37m",     [ 1..4 ] ],
+    [ "\e[39m",     [ 1..4 ] ],
+    [ "\e[1;30m",   [ 1..6 ] ],
+    [ "\e[1;31m",   [ 1..6 ] ],
+    [ "\e[1;32m",   [ 1..6 ] ],
+    [ "\e[1;33m",   [ 1..6 ] ],
+    [ "\e[1;34m",   [ 1..6 ] ],
+    [ "\e[1;35m",   [ 1..6 ] ],
+    [ "\e[1;36m",   [ 1..6 ] ],
+    [ "\e[1;37m",   [ 1..6 ] ],
+    [ "\e[1;39m",   [ 1..6 ] ],
+    [ "\e[40m",     [ 1..4 ] ],
+    [ "\e[41m",     [ 1..4 ] ],
+    [ "\e[42m",     [ 1..4 ] ],
+    [ "\e[43m",     [ 1..4 ] ],
+    [ "\e[44m",     [ 1..4 ] ],
+    [ "\e[45m",     [ 1..4 ] ],
+    [ "\e[46m",     [ 1..4 ] ],
+    [ "\e[47m",     [ 1..4 ] ],
+    [ "\e[49m",     [ 1..4 ] ],
+    [ "\e[0m",      [ 1..3 ] ],
+    [ "\e[m",       [ 1..2 ] ],
+    [ "\e[;;m",     [ 1..4 ] ],
+    [ "\e[123456m", [ 1    ] ], # tightly coupled to ALLOC_COMPLETE_PART_LINE
 );
 # sequence, buffer size
 my @merge_fail = (
@@ -93,7 +96,6 @@ $tests += @merge_fail;
 $tests += @buffer;
 $tests += @pushback;
 
-my $source = 'colorize.c';
 my %programs;
 
 my $compile = sub
@@ -101,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
 };
@@ -115,36 +117,38 @@ my $test_name = sub
     return "$sequence: $substr";
 };
 
+my $compiling_failed_msg = 'compiling failed (merge part line)';
+
 plan tests => $tests;
 
 foreach my $test (@merge_success) {
     foreach my $buf_size (@{$test->[1]}) {
         SKIP: {
-            skip 'compiling failed (merge part line)', 1 unless $compile->($buf_size);
-            ok(qx(echo -n "$test->[0]" | $programs{$buf_size} --clean) eq $test->[0], 'merge success: ' . $test_name->($test->[0], $buf_size));
+            skip $compiling_failed_msg, 1 unless $compile->($buf_size);
+            ok(qx(printf %s "$test->[0]" | $programs{$buf_size} --clean) eq $test->[0], 'merge success: ' . $test_name->($test->[0], $buf_size));
         }
     }
 }
 foreach my $test (@merge_fail) {
     my $buf_size = $test->[1];
     SKIP: {
-        skip 'compiling failed (merge part line)', 1 unless $compile->($buf_size);
-        ok(qx(echo -n "$test->[0]" | $programs{$buf_size} --clean) eq substr($test->[0], 0, $buf_size), 'merge fail: ' . $test_name->($test->[0], $buf_size));
+        skip $compiling_failed_msg, 1 unless $compile->($buf_size);
+        ok(qx(printf %s "$test->[0]" | $programs{$buf_size} --clean) eq substr($test->[0], 0, $buf_size), 'merge fail: ' . $test_name->($test->[0], $buf_size));
     }
 }
 foreach my $test (@buffer) {
     my $buf_size = length($test) - 1;
     SKIP: {
-        skip 'compiling failed (merge part line)', 1 unless $compile->($buf_size);
-        ok(qx(echo -n "$test" | $programs{$buf_size} --clean) eq substr($test, 0, $buf_size), 'buffer: ' . $test_name->($test, $buf_size));
+        skip $compiling_failed_msg, 1 unless $compile->($buf_size);
+        ok(qx(printf %s "$test" | $programs{$buf_size} --clean) eq substr($test, 0, $buf_size), 'buffer: ' . $test_name->($test, $buf_size));
     }
 }
 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;
-        ok(qx(echo -n "$test->[0]" | $program --clean) eq $test->[0], 'pushback: ' . $test_name->($test->[0], $buf_size));
+        skip $compiling_failed_msg, 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;
     }
 }