diff options
author | Eric Wong <e@80x24.org> | 2019-12-18 03:36:43 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-12-19 03:59:17 +0000 |
commit | 684d26cecc0891261783be179909b0e434692b25 (patch) | |
tree | a1d78c9f23792d0272ee542c06cd347b848cffc6 /t/v2mirror.t | |
parent | 55b11c59936125aab26694e17631828c7ea9954e (diff) | |
download | public-inbox-684d26cecc0891261783be179909b0e434692b25.tar.gz |
These usages of file-local global variables make the *.t files incompatible with run_script(). Instead, use anonymous subs, "our", or pass the parameter as appropriate.
Diffstat (limited to 't/v2mirror.t')
-rw-r--r-- | t/v2mirror.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/v2mirror.t b/t/v2mirror.t index a45a262e..213a5f15 100644 --- a/t/v2mirror.t +++ b/t/v2mirror.t @@ -97,15 +97,15 @@ for my $i (10..15) { $v2w->done; $ibx->cleanup; -sub fetch_each_epoch { +my $fetch_each_epoch = sub { foreach my $i (0..$epoch_max) { my $dir = "$tmpdir/m/git/$i.git"; is(system('git', "--git-dir=$dir", 'fetch', '-q'), 0, 'fetch successful'); } -} +}; -fetch_each_epoch(); +$fetch_each_epoch->(); my $mset = $mibx->search->reopen->query('m:15@example.com', {mset => 1}); is(scalar($mset->items), 0, 'new message not found in mirror, yet'); @@ -135,7 +135,7 @@ like($to_purge, qr/\A[a-f0-9]{40,}\z/, 'read blob to be purged'); $mset = $ibx->search->reopen->query('m:10@example.com', {mset => 1}); is(scalar($mset->items), 0, 'purged message gone from origin'); -fetch_each_epoch(); +$fetch_each_epoch->(); { $ibx->cleanup; PublicInbox::InboxWritable::cleanup($mibx); @@ -173,7 +173,7 @@ is($mibx->git->check($to_purge), undef, 'unindex+prune successful in mirror'); ok($v2w->remove($mime), 'removed <1@example.com> from source'); $v2w->done; $ibx->cleanup; - fetch_each_epoch(); + $fetch_each_epoch->(); PublicInbox::InboxWritable::cleanup($mibx); my $cmd = [ "-index", "$tmpdir/m" ]; |