The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 2;
use URPM;
use Cwd;

chdir 't' if -d 't';
mkdir "tmp";
for (qw(BUILD SOURCES SRPMS RPMS RPMS/noarch)) {
    mkdir "tmp/".$_;
}
# locally build a test rpm
system(rpmbuild => '--define', '_topdir '. Cwd::cwd() . "/tmp/", '-ba', 'test-rpm.spec');
ok( -f 'tmp/RPMS/noarch/test-rpm-1.0-1mdk.noarch.rpm', 'rpm created' );
ok( -f 'tmp/SRPMS/test-rpm-1.0-1mdk.src.rpm', 'srpm created' );