diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2021-06-05 15:33:49 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2022-04-26 23:52:31 +0200 |
commit | 66d846d313e9fe55c9e58d54891e0e1086aab107 (patch) | |
tree | ba2c5656f715812b317fe70599ae33a419c924e2 /RPM4/t | |
parent | 95cd0bb1ef027cb9f5dc47ee72512d7a082d59d9 (diff) | |
download | perl-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
Diffstat (limited to 'RPM4/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"); |