summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2021-06-05 15:33:49 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2022-04-26 23:52:31 +0200
commit66d846d313e9fe55c9e58d54891e0e1086aab107 (patch)
treeba2c5656f715812b317fe70599ae33a419c924e2
parent95cd0bb1ef027cb9f5dc47ee72512d7a082d59d9 (diff)
downloadperl-RPM4-66d846d313e9fe55c9e58d54891e0e1086aab107.tar
perl-RPM4-66d846d313e9fe55c9e58d54891e0e1086aab107.tar.gz
perl-RPM4-66d846d313e9fe55c9e58d54891e0e1086aab107.tar.bz2
perl-RPM4-66d846d313e9fe55c9e58d54891e0e1086aab107.tar.xz
perl-RPM4-66d846d313e9fe55c9e58d54891e0e1086aab107.zip
Clarify some test names
-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");