summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--RPM4/t/05transaction.t10
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");