diff options
| -rwxr-xr-x | t/gprintify | 151 |
1 files changed, 151 insertions, 0 deletions
diff --git a/t/gprintify b/t/gprintify new file mode 100755 index 0000000..9069d1d --- /dev/null +++ b/t/gprintify @@ -0,0 +1,151 @@ +#!/usr/bin/perl +# $Id: gprintify 257533 2009-05-23 12:45:15Z guillomovitch $ + +use strict; +use warnings; +use Test::More; +use File::Temp qw/tempdir/; +use File::Path qw/make_path/; +use FindBin qw/$Bin/; +use lib "$Bin/../lib"; +use Digest::MD5; + +my @string_results = ( + [ 'result: $foo', 'result: %s', ' "$foo"' ], + [ 'result: $foo,$bar', 'result: %s,%s', ' "$foo" "$bar"' ], + [ 'result: \$foo', 'result: \$foo', '' ], + [ 'result: \$foo,$bar', 'result: \$foo,%s', ' "$bar"' ], + [ 'result: ${foo}', 'result: %s', ' "${foo}"', '' ], + [ 'result: ${foo##*/}', 'result: %s', ' "${foo##*/}"' ], + [ 'result: ${foo%%*/}', 'result: %s', ' "${foo%%*/}"' ], + [ 'result: ${foo#*/}', 'result: %s', ' "${foo#*/}"' ], + [ 'result: ${foo%*/}', 'result: %s', ' "${foo%*/}"' ] +); +my @start_results = ( + [ 'echo "result: $foo"', 'gprintf "', '\n"' ], + [ '# echo "result: $foo"', '# gprintf "', '\n"' ], + [ 'echo -n "result: $foo"', 'gprintf "', '"' ], + [ 'echo -e "result: $foo"', 'gprintf "', '\n"' ], +); + +my @line_results = ( + [ + 'echo "result: $foo"' . "\n", + 'gprintf "result: %s\n" "$foo"' . "\n" + ], + [ + 'echo "result: \"$foo\""' . "\n", + 'gprintf "result: \"%s\"\n" "$foo"' . "\n" + ], + [ + 'test "$foo" != "AB"', + 'test "$foo" != "AB"', + ] +); + +plan tests => + 4 + (@string_results * 2) + (@start_results * 2) + (@line_results); + +# test loading +ok(require("gprintify"), "loading file OK"); + +# test string function +foreach my $result (@string_results) { + my ($new_string, $variables) = process_string($result->[0]); + is($new_string, $result->[1], "new string OK"); + is($variables, $result->[2], "variable OK"); +} + +# test start function +foreach my $result (@start_results) { + my ($new_start, $string_end) = process_start($result->[0]); + is($new_start, $result->[1], "new start OK"); + is($string_end, $result->[2], "string end OK"); +} + +# test line function +foreach my $result (@line_results) { + my ($new_line) = process_line($result->[0]); + is($new_line, $result->[1], "new line OK"); +} + +# test the script itself +my ($buildroot, $script, $before, $after); + +($buildroot, $script) = setup(<<'EOF'); +echo "Usage: $0 {start|stop|status}" +EOF + +$before = get_md5($script); +run($buildroot); +$after = get_md5($script); + +is( + $before, + $after, + 'service not sourcing /etc/init.d/functions should not be modified' +); + +($buildroot, $script) = setup(<<'EOF'); +. /etc/init.d/functions +echo "Usage: $0 {start|stop|status}" +EOF + +$before = get_md5($script); +run($buildroot); +$after = get_md5($script); + +isnt( + $before, + $after, + 'service sourcing /etc/init.d/functions should be modified' +); + +($buildroot, $script) = setup(<<'EOF'); +. /etc/init.d/functions +echo "Usage: $0 {start|stop|status}" +EOF + +$before = get_md5($script); +$ENV{EXCLUDE_FROM_GPRINTIFICATION} = 'test'; +run($buildroot); +$after = get_md5($script); + +is( + $before, + $after, + 'EXCLUDE_FROM_GPRINTIFICATION should prevent service modification' +); + +sub setup { + my ($content) = @_; + + my $buildroot = tempdir(CLEANUP => ($ENV{TEST_DEBUG} ? 0 : 1)); + + my $initrddir = $buildroot . '/etc/rc.d/init.d'; + my $script = $initrddir . '/test'; + + make_path($initrddir); + open(my $out, '>', $script) or die "can't write to $script: $!"; + print $out $content; + close($out); + + return ($buildroot, $script); +} + +sub run { + my ($buildroot) = @_; + + $ENV{RPM_BUILD_ROOT} = $buildroot; + system("$Bin/../gprintify"); +} + +sub get_md5 { + my ($file) = @_; + open(my $in, '<', $file) or die "can't read $file: $!"; + binmode($in); + my $md5 = Digest::MD5->new(); + $md5->addfile($in); + close($in); + return $md5->hexdigest(); +} |