diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2022-04-26 12:04:40 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2022-04-27 00:03:18 +0200 |
| commit | 459cfa86669da8ed654cd05e36b9556aa15ee4fc (patch) | |
| tree | 1a1ea7a5a2bad18a5d5e9fa01828e15a4225f889 | |
| parent | 00c39b515768795c7a75f6005d958dfabce9e52e (diff) | |
| download | perl-RPM4-459cfa86669da8ed654cd05e36b9556aa15ee4fc.tar perl-RPM4-459cfa86669da8ed654cd05e36b9556aa15ee4fc.tar.gz perl-RPM4-459cfa86669da8ed654cd05e36b9556aa15ee4fc.tar.bz2 perl-RPM4-459cfa86669da8ed654cd05e36b9556aa15ee4fc.tar.xz perl-RPM4-459cfa86669da8ed654cd05e36b9556aa15ee4fc.zip | |
Check problems after test transaction too
| -rw-r--r-- | RPM4/t/05transaction.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/RPM4/t/05transaction.t b/RPM4/t/05transaction.t index 8eb6fdf..44f1ee2 100644 --- a/RPM4/t/05transaction.t +++ b/RPM4/t/05transaction.t @@ -43,7 +43,8 @@ ok($ts->transorder == 0, "Run transaction order"); process_problems(); ok(defined($ts->transflag([qw(TEST)])), "Set transflags"); -#ok($ts->transrun([ qw(LABEL PERCENT) ]) == 0, "Running test transaction"); +ok($ts->transrun(\&callback) == 1, "Running test transaction with pkg obsoleting its deps"); +process_problems(); ok(!defined($ts->transreset), "Resetting transaction"); my $h = RPM4::rpm2header("$Bin/test-rpm-1.0-1mdk.noarch.rpm"); |