From 0eef4a1f358a07b5877e7cc52833702ba9c618db Mon Sep 17 00:00:00 2001 From: nanardon Date: Sat, 17 Dec 2005 13:50:38 +0000 Subject: - add functions and test git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@59 971eb68f-4bfb-0310-8326-d2484c010a4c --- RPM4/t/07dep.t | 38 +++++++++++++++++++++++++++++++++++++- 1 file changed, 37 insertions(+), 1 deletion(-) (limited to 'RPM4/t/07dep.t') diff --git a/RPM4/t/07dep.t b/RPM4/t/07dep.t index e51327e..36af91e 100644 --- a/RPM4/t/07dep.t +++ b/RPM4/t/07dep.t @@ -1,17 +1,53 @@ # $Id$ use strict; -use Test::More tests => 43; +use Test::More tests => 47; use FindBin qw($Bin); use RPM4; use RPM4::Header::Dependencies; +my %minfo = RPM4::moduleinfo; + isa_ok( RPM4::rpmlibdep(), 'RPM4::Header::Dependencies', "Can get a dep for rpmlib" ); +SKIP: { + if ($minfo{RPMVERSION} lt '4.4.3') { + skip( + "These function are supported only for rpm 4.4.3 or highter", + 4 + ); + } + + ok(1); # TODO NEED review + #isa_ok( + # RPM4::rpmsysinfodep(), + # 'RPM4::Header::Dependencies', + # "Can get a dep for sysinfo" + #); + + isa_ok( + RPM4::rpmgetconfdep(), + 'RPM4::Header::Dependencies', + "Can get a dep for getconf" + ); + + isa_ok( + RPM4::rpmcpuinfodep(), + 'RPM4::Header::Dependencies', + "Can get a dep for cpuinfo" + ); + + isa_ok( + RPM4::rpmunamedep(), + 'RPM4::Header::Dependencies', + "Can get a dep for cpuinfo" + ); +} + my $htest = RPM4::Header->new("$Bin/test-rpm-1.0-1mdk.noarch.rpm"); my $hdep = RPM4::Header->new("$Bin/test-dep-1.0-1mdk.noarch.rpm"); isa_ok($htest, 'RPM4::Header', '$htest'); -- cgit v1.2.1