diff options
Diffstat (limited to 'RPM4/t/05transaction.t')
| -rw-r--r-- | RPM4/t/05transaction.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/RPM4/t/05transaction.t b/RPM4/t/05transaction.t index 66d6444..218f4d0 100644 --- a/RPM4/t/05transaction.t +++ b/RPM4/t/05transaction.t @@ -30,7 +30,7 @@ ok(RPM4::rpmdbrebuild == 0, "rebuild database"); ok(RPM4::rpmdbverify == 0, "Verify empty"); my $ts; -ok($ts = RPM4::Transaction->new, "Open a new transaction"); +ok($ts = RPM4::Transaction->new, "Create a new transaction"); ok($ts->traverse(sub { print STDERR $_[0]->tag(1000) . "\n" }) != -1, "ts->traverse"); ok($ts->importpubkey("$Bin/gnupg/test-key.gpg") == 0, "Importing a public key"); @@ -61,7 +61,7 @@ ok($strpb, "Can get problem description"); } ok(defined($ts->transflag([qw(TEST)])), "Set transflags"); -#ok($ts->transrun([ qw(LABEL PERCENT) ]) == 0, "Running transaction justdb"); +#ok($ts->transrun([ qw(LABEL PERCENT) ]) == 0, "Running test transaction"); ok(!defined($ts->transreset), "Resetting transaction"); my $h = RPM4::rpm2header("$Bin/test-rpm-1.0-1mdk.noarch.rpm"); @@ -88,9 +88,9 @@ ok($ts->traverse(sub { (undef, $roffset) = ($hf, $offset); }; 1; - }), "Running traverse"); + }), "Running traverse on transaction"); -ok($found, "Can find header in db"); +ok($found, "Can find header in transaction"); $ts = undef; # explicitely calling DESTROY to close database @@ -104,7 +104,7 @@ ok($ts->traverse(sub { $found++; (undef, $roffset) = ($hf, $offset); }; - }), "Running traverse"); + }), "Running traverse on DB"); ok($found == 1, "The previously installed rpm is found"); ok($roffset > 0, "Retrieve offset db"); |