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: {
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: {