aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xtest.pl54
1 files changed, 54 insertions, 0 deletions
diff --git a/test.pl b/test.pl
new file mode 100755
index 0000000..3958ec9
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+# $Id: gprintify 257533 2009-05-23 12:45:15Z guillomovitch $
+
+use strict;
+use warnings;
+
+use IPC::Run qw/run/;
+use Test::More tests => 48;
+use FindBin;
+use File::Temp qw/tempdir/;
+
+my $path = "$FindBin::Bin/";
+
+my ($out, $err);
+delete $ENV{RPM_BUILD_ROOT};
+
+foreach my $prog qw/
+ clean_files
+ compress_files
+ relink_symlinks
+ gprintify
+ translate_menu
+ remove_info_dir
+ fix_pamd
+ fix_eol
+ / {
+
+ ($out, $err) = run_prog($prog);
+ is( $out, '', "$prog stdin without buildroot" );
+ like($err, qr/^No build root defined/, "$prog stderr without buildroot");
+
+ $ENV{RPM_BUILD_ROOT} = "foo";
+
+ ($out, $err) = run_prog($prog);
+ is( $out, '', "$prog stdin with wrong buildroot" );
+ like($err, qr/^Invalid build root/, "$prog stderr with wrong buildroot");
+
+ my $buildroot = tempdir(CLEANUP => 1);
+
+ $ENV{RPM_BUILD_ROOT} = $buildroot;
+
+ ($out, $err) = run_prog($prog);
+ is($out, '', "$prog stdin with correct buildroot" );
+ is($err, '', "$prog stderr with correct buildroot");
+
+ delete $ENV{RPM_BUILD_ROOT};
+}
+
+sub run_prog {
+ my ($prog, @args) = @_;
+
+ run (["$FindBin::Bin/$prog", @args], \my($in, $out, $err));
+ return ($out, $err);
+}