xt/perf-imap-list.t | 9 ++++++--- diff --git a/xt/perf-imap-list.t b/xt/perf-imap-list.t index 37640a90f3cb181a455d23cfc1b08d57ae35e84c..0f00f48799117b682c891095df5dba6e6f61290f 100644 --- a/xt/perf-imap-list.t +++ b/xt/perf-imap-list.t @@ -9,15 +9,18 @@ use Benchmark qw(:all); my @n = map { { newsgroup => "inbox.comp.foo.bar.$_" } } (0..50000); push @n, map { { newsgroup => "xobni.womp.foo.bar.$_" } } (0..50000); my $self = { imapd => { grouplist => \@n } }; -PublicInbox::IMAPD::refresh_inboxlist($self->{imapd}); +my $n = scalar @n; +my $t = timeit(1, sub { + PublicInbox::IMAPD::refresh_inboxlist($self->{imapd}); +}); +diag timestr($t). "refresh $n inboxes"; -my $n = scalar @n; open my $null, '>', '/dev/null' or BAIL_OUT "open: $!"; my $ds = { sock => $null }; my $nr = 200; diag "starting benchmark..."; my $cmd_list = \&PublicInbox::IMAP::cmd_list; -my $t = timeit(1, sub { +$t = timeit(1, sub { for (0..$nr) { my $res = $cmd_list->($self, 'tag', '', '*'); PublicInbox::DS::write($ds, $res);