From ec9cacadc5e93e90a4c4e859a04c716edba442b3 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 19 Jan 2006 13:05:54 +0000 Subject: Return undef on spec parsing failure --- t/parse.t | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 't') diff --git a/t/parse.t b/t/parse.t index afe59b3..d27c15f 100644 --- a/t/parse.t +++ b/t/parse.t @@ -4,12 +4,15 @@ use strict; use warnings; -use Test::More tests => 26; +use Test::More tests => 27; use MDV::Packdrakeng; use URPM; use URPM::Build; use URPM::Query; +# shut up +URPM::setVerbosity(2); + my $a = new URPM; ok($a); @@ -66,5 +69,7 @@ ok(URPM::rpmvercmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1"); { my $pkg = URPM::spec2srcheader("test-rpm.spec"); ok(defined $pkg, "Parsing a spec works"); - ok($pkg->get_tag(1000) eq 'test-rpm'); + ok($pkg->get_tag(1000) eq 'test-rpm', 'parsed correctly'); + $pkg = URPM::spec2srcheader("doesnotexist.spec"); + ok(!defined $pkg, "non-existent spec"); } -- cgit v1.2.1