qw(core.sharedRepository 0644));
is(system(@cmd), 0, "set sharedRepository in all.git");
$git0 = PublicInbox::Git->new("$mainrepo/git/0.git");
- my $fh = $git0->popen(qw(config core.sharedRepository));
- my $v = eval { local $/; <$fh> };
- chomp $v;
+ chomp(my $v = $git0->qx(qw(config core.sharedRepository)));
is($v, '0644', 'child repo inherited core.sharedRepository');
- $fh = $git0->popen(qw(config --bool repack.writeBitmaps));
- $v = eval { local $/; <$fh> };
- chomp $v;
+ chomp($v = $git0->qx(qw(config --bool repack.writeBitmaps)));
is($v, 'true', 'child repo inherited repack.writeBitmaps');
}
my @found = ();
$srch->each_smsg_by_mid($smsg->mid, sub { push @found, @_; 1 });
is(scalar(@found), 0, 'no longer found in Xapian skeleton');
+ my @log1 = qw(log -1 --pretty=raw --raw -r --no-abbrev --no-renames);
- my $after = $git0->qx(qw(log -1 --pretty=raw --raw -r --no-abbrev));
- if ($after =~ m!( [a-f0-9]+ )A\t_/D$!) {
+ my $after = $git0->qx(@log1);
+ if ($after =~ m!( [a-f0-9]+ )A\td$!m) {
my $oid = $1;
ok(index($before, $oid) > 0, 'no new blob introduced');
} else {
is($im->remove($mime, 'test removal'), undef,
'remove is idempotent');
$im->done;
- is($git0->qx(qw(log -1 --pretty=raw --raw -r --no-abbrev)),
+ is($git0->qx(@log1),
$after, 'no git history made with idempotent remove');
eval { $im->done };
ok(!$@, '->done is idempotent');
}
+{
+ ok($im->add($mime), 'add message to be purged');
+ local $SIG{__WARN__} = sub {};
+ ok($im->purge($mime), 'purged message');
+ $im->done;
+}
+
done_testing();