diff options
author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-12-18 00:14:31 +0000 |
---|---|---|
committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-12-18 00:14:31 +0000 |
commit | 7ccfd687e6b1554ebcdb123979f005523a1b89b1 (patch) | |
tree | 1dfe48275990559a7652d3b6b45eabe7914b0531 /RPM4/t/07dep.t | |
parent | f2b68f33b2083673835a2bcb6307861611bf7a98 (diff) | |
download | perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.gz perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.bz2 perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.xz perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.zip |
perl_checker cleanups
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@237 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/t/07dep.t')
-rw-r--r-- | RPM4/t/07dep.t | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/RPM4/t/07dep.t b/RPM4/t/07dep.t index 2dd352f..f4552a3 100644 --- a/RPM4/t/07dep.t +++ b/RPM4/t/07dep.t @@ -7,7 +7,7 @@ use FindBin qw($Bin); use RPM4; use RPM4::Header::Dependencies; -my %minfo = RPM4::moduleinfo; +my %_minfo = RPM4::moduleinfo; isa_ok( RPM4::rpmlibdep(), @@ -41,7 +41,7 @@ isa_ok( '$hdep->dep("PROVIDENAME")' ); ok( - ! defined $hdep->dep("TRIGGERNAME"), + ! defined($hdep->dep("TRIGGERNAME")), "fetching triggers returns undef" ); @@ -65,27 +65,27 @@ ok(! $htest->is_better_than($hdep), "test-rpm better than test-dep: no"); my ($dep1, $dep2, $dep3); isa_ok( RPM4::Header::Dependencies->new("REQUIRENAME", - [ "test-rpm", [ qw/LESS EQUAL/ ], "1.0-1mdk" ] + [ "test-rpm", [ qw(LESS EQUAL) ], "1.0-1mdk" ] ), 'RPM4::Header::Dependencies', 'New REQUIRENAME dependencies' ); -ok($dep1 = RPM4::newdep("REQUIRENAME", "test-rpm", [ qw/LESS EQUAL/ ], "1.0-1mdk"), "Build a new dep"); -ok($dep2 = RPM4::newdep("REQUIRENAME", "test-rpm", [ qw/GREATER EQUAL/ ], "1.0-1mdk"), "Build a new dep"); +ok($dep1 = RPM4::newdep("REQUIRENAME", "test-rpm", [ qw(LESS EQUAL) ], "1.0-1mdk"), "Build a new dep"); +ok($dep2 = RPM4::newdep("REQUIRENAME", "test-rpm", [ qw(GREATER EQUAL) ], "1.0-1mdk"), "Build a new dep"); ok($dep3 = RPM4::newdep("REQUIRENAME", "test-rpm", [ "GREATER" ], "1.0-1mdk"), "Build a new dep"); -is($dep1->count(), 1, "dependencies number"); -ok(defined($dep1->move()), "Can move into dep"); -ok($dep1->next() == -1, "no further dependency"); +is($dep1->count, 1, "dependencies number"); +ok(defined($dep1->move), "Can move into dep"); +ok($dep1->next == -1, "no further dependency"); -ok($dep1->add("test-dep", [ qw/LESS EQUAL/ ], "1.0-1mdk"), "Add a dep entry into existing dep"); +ok($dep1->add("test-dep", [ qw(LESS EQUAL) ], "1.0-1mdk"), "Add a dep entry into existing dep"); -ok(scalar($dep1->info()) eq "R test-rpm <= 1.0-1mdk", "Can get info from RPM4::Header::Dep"); -ok(($dep1->info())[3] eq "1.0-1mdk", "Can get info from RPM4::Header::Dep"); -ok($dep1->name() eq 'test-rpm', "Get dep name from RPM4::Header::Dep"); -ok($dep1->flags(), "Get dep flags from RPM4::Header::Dep"); -ok($dep1->evr() eq '1.0-1mdk', "Get dep evr from RPM4::Header::Dep"); +ok(scalar($dep1->info) eq "R test-rpm <= 1.0-1mdk", "Can get info from RPM4::Header::Dep"); +ok(($dep1->info)[3] eq "1.0-1mdk", "Can get info from RPM4::Header::Dep"); +ok($dep1->name eq 'test-rpm', "Get dep name from RPM4::Header::Dep"); +ok($dep1->flags, "Get dep flags from RPM4::Header::Dep"); +ok($dep1->evr eq '1.0-1mdk', "Get dep evr from RPM4::Header::Dep"); ok($dep1->overlap($dep2), "compare two dep"); ok($dep1->overlap($dep3) == 0, "compare two dep"); |