diff options
author | Steven Schubiger <stsc@refcnt.org> | 2015-10-03 22:45:13 +0200 |
---|---|---|
committer | Steven Schubiger <stsc@refcnt.org> | 2015-10-03 22:45:13 +0200 |
commit | 0ffd3036fe3f53cf5e6d25f128c075163b305f68 (patch) | |
tree | 6502515a5ceb8d31cb84d3c7dfd2730a3c6f5141 /t | |
parent | f72501505fef26e5ac48fbaa4611f71891f49b38 (diff) | |
download | colorize-0ffd3036fe3f53cf5e6d25f128c075163b305f68.tar.gz colorize-0ffd3036fe3f53cf5e6d25f128c075163b305f68.tar.bz2 |
Replace echo command invocations with printf
to be more portable.
Diffstat (limited to 't')
-rwxr-xr-x | t/merge.t | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -122,7 +122,7 @@ 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)); + ok(qx(printf %s "$test->[0]" | $programs{$buf_size} --clean) eq $test->[0], 'merge success: ' . $test_name->($test->[0], $buf_size)); } } } @@ -130,14 +130,14 @@ 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)); + 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)); + 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) { @@ -145,7 +145,7 @@ foreach my $test (@pushback) { 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)); + ok(qx(printf %s "$test->[0]" | $program --clean) eq $test->[0], 'pushback: ' . $test_name->($test->[0], $buf_size)); unlink $program; } } |