From 91a15ad9f49cf8b333845cd2cd81a93eeed136f3 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 4 Oct 2005 12:19:10 +0000 Subject: Don't require Packdrakeng for running tests --- t/parse.t | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 't') diff --git a/t/parse.t b/t/parse.t index 103f66a..ace8553 100644 --- a/t/parse.t +++ b/t/parse.t @@ -2,8 +2,17 @@ # $Id$ -use strict ; -use warnings ; +use strict; +use warnings; + +BEGIN { + eval { require Packdrakeng }; + if ($@) { + print "1..0 # SKIP: no Packdrakeng here\n"; + exit 0; + } +} + use Test::More tests => 24; use URPM; use URPM::Build; @@ -51,7 +60,6 @@ ok(URPM::rpmvercmp("1-1mdk", "1-2mdk") == -1, "Right value win = -1"); ok(URPM::rpmvercmp("1-2mdk", "1-1mdk") == 1, "Left value win = 1"); ok(URPM::rpmvercmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1"); - { open(my $hdfh, "zcat hdlist.cz 2>/dev/null |") or die $!; my $pkg = URPM::stream2header($hdfh); -- cgit v1.2.1