aboutsummaryrefslogtreecommitdiffstats
path: root/t/merge.t
diff options
context:
space:
mode:
authorGravatar Steven Schubiger <stsc@refcnt.org> 2016-05-27 21:57:39 +0200
committerGravatar Steven Schubiger <stsc@refcnt.org> 2016-05-27 21:57:39 +0200
commit877d9da6837b244dbfec10dff5488af02e532202 (patch)
tree422f39545cf765dc84c2fb23eadfe8ea3405a660 /t/merge.t
parent4c63e4c28c80a7b1528d67793585b499a4008be8 (diff)
downloadcolorize-877d9da6837b244dbfec10dff5488af02e532202.tar.gz
colorize-877d9da6837b244dbfec10dff5488af02e532202.tar.bz2
Set skip message once for merge tests
Diffstat (limited to 't/merge.t')
-rwxr-xr-xt/merge.t10
1 files changed, 6 insertions, 4 deletions
diff --git a/t/merge.t b/t/merge.t
index 74db86b..1f1ba56 100755
--- a/t/merge.t
+++ b/t/merge.t
@@ -119,10 +119,12 @@ my $test_name = sub
plan tests => $tests;
+my $compiling_failed_msg = 'compiling failed (merge part line)';
+
foreach my $test (@merge_success) {
foreach my $buf_size (@{$test->[1]}) {
SKIP: {
- skip 'compiling failed (merge part line)', 1 unless $compile->($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));
}
}
@@ -130,14 +132,14 @@ foreach my $test (@merge_success) {
foreach my $test (@merge_fail) {
my $buf_size = $test->[1];
SKIP: {
- skip 'compiling failed (merge part line)', 1 unless $compile->($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);
+ 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));
}
}
@@ -145,7 +147,7 @@ foreach my $test (@pushback) {
my $buf_size = $test->[1];
SKIP: {
my $program = tmpnam();
- skip 'compiling failed (merge part line)', 1 unless system("$compiler -DBUF_SIZE=$buf_size -o $program $source") == 0;
+ 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;
}