#!/usr/bin/perl -w

# Tests whether or not the system can generate a rpm package

use Test::More;
use File::Path;
use File::Spec::Functions qw(rel2abs);

# first check if the system has rpm[build]
`rpmbuild --help > /dev/null 2>&1`;

# assume that $? is 0 if the command succeeded.
if  ( $? == 0 ) { #if rpm is present
	plan tests => 1;
}
else {
	plan skip_all => 'package system is not rpm';
}

# run the megadistro program with specific options, to generate a rpm package
mkpath rel2abs "t/rootdir";
END { rmtree rel2abs "t/rootdir" }

system( "$^X -Iblib/lib bin/megadistro --clean --force --disttype=rpm --modlist=t/test.list --rootdir=t/rootdir" );

ok( glob("t/rootdir/megadistro-0.02-4.*.rpm"), "build rpm" );