diff options
-rw-r--r-- | t/parse.t | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -4,7 +4,7 @@ use strict; use warnings; -use Test::More tests => 39; +use Test::More tests => 41; use MDV::Packdrakeng; use URPM; use URPM::Build; @@ -111,3 +111,10 @@ ok(URPM::rpmvercmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1"); END { unlink "bad.spec" } } +{ + my $c = URPM->new; + $c->parse_rpm('tmp/SRPMS/test-rpm-1.0-1mdk.src.rpm'); + my $pkg = $c->{depslist}[0]; + ok(defined $pkg, "Parsing a srpm works"); + is($pkg->arch, 'src', 'srpm arch is "src"'); +} |