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);
+}