From 877d9da6837b244dbfec10dff5488af02e532202 Mon Sep 17 00:00:00 2001 From: Steven Schubiger Date: Fri, 27 May 2016 21:57:39 +0200 Subject: Set skip message once for merge tests --- t/merge.t | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 't') 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; } -- cgit v1.2.3