diff -up ./t/05transaction.t.tv2 ./t/05transaction.t
--- ./t/05transaction.t.tv2	2021-06-05 14:55:00.293665867 +0200
+++ ./t/05transaction.t	2021-06-05 15:15:59.925066438 +0200
@@ -9,6 +9,9 @@ use File::Temp qw(tempdir);
 use RPM4;
 use RPM4::Transaction::Problems;
 
+# Make sure debugging with Data::Dumper is more easily comparable:
+$Data::Dumper::Sortkeys = 1;
+
 if (-e '/etc/debian_version' || `uname -a` =~ /BSD/i) {
     plan skip_all => "*BSD/Debian/Ubuntu do not have a system wide rpmdb";
 } else {
@@ -78,8 +81,8 @@ ok($ts->traverse_transaction(sub {
 ok($ts->transcheck == 0, "Checking transaction works");
 ok($ts->transorder == 0, "Run transaction order");
 
-ok(defined($ts->transflag([qw(JUSTDB)])), "Set transflags");
-ok($ts->transrun(sub { my %a = @_; print STDERR " << $a{what} $a{amount} / $a{total}\n" }) == 0, "Running transaction justdb");
+#ok(defined($ts->transflag([qw(JUSTDB)])), "Set transflags");
+ok($ts->transrun(sub { my %a = @_; use Data::Dumper; warn Dumper \%a; print STDERR " << $a{what} $a{amount} / $a{total}\n" }) == 0, "Running transaction justdb");
 
 my $found = 0;
 my $roffset;
@@ -93,7 +96,7 @@ ok($ts->traverse(sub {
         1;
     }), "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