+
+ # with the async interface
+ my ($async_alt, $async_dir_obj) = tmpdir();
+ PublicInbox::Import::init_bare($async_alt);
+ my @exist = map { chomp; [ split / / ] } (xqx(['git', "--git-dir=$dir",
+ qw(cat-file --batch-all-objects --batch-check)]));
+ my $results = [];
+ my $cb = sub {
+ my ($bref, $oid, $type, $size) = @_;
+ push @$results, [ $oid, $type, $size ];
+ };
+ for my $i (0..5) {
+ $gcf->cat_async($exist[$i]->[0], $cb, $results);
+ next if $i != 3;
+
+ # stick a new alternate into a running async pipeline
+ $hash_obj->[1] = "--git-dir=$async_alt";
+ $remote = xqx($hash_obj, undef, { 0 => \'async' });
+ chomp $remote;
+ open $fh, '>>', "$dir/objects/info/alternates" or
+ die "open failed: $!\n";
+ print $fh "$async_alt/objects\n" or die "print failed: $!\n";
+ close $fh or die "close failed: $!";
+ # trigger cat_async_retry:
+ $gcf->cat_async($remote, $cb, $results);
+ }
+ $gcf->async_wait_all;
+ my $expect = [ @exist[0..3], [ $remote, 'blob', 5 ], @exist[4..5] ];
+ is_deeply($results, $expect, 'got expected results');
+
+ ok(!$gcf->cleanup, 'cleanup can expire');
+ ok(!$gcf->cleanup, 'cleanup idempotent');
+
+ my $t = $gcf->modified;
+ ok($t <= time, 'repo not modified in the future');
+ isnt($t, 0, 'repo not modified in 1970')