]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/lei_to_mail.t
lei q: fix augment of compressed mailboxes
[public-inbox.git] / t / lei_to_mail.t
index e5ac8eac3585c0881ce0b67287d218d05a93eeef..6673d9a6aefe06bfda629199faf98ade833f6adc 100644 (file)
@@ -94,9 +94,9 @@ my $wcb_get = sub {
                my $dup = Storable::thaw(Storable::freeze($l2m));
                is_deeply($dup, $l2m, "$fmt round-trips through storable");
        }
-       $l2m->pre_augment($lei);
+       my $zpipe = $l2m->pre_augment($lei);
        $l2m->do_augment($lei);
-       $l2m->post_augment($lei);
+       $l2m->post_augment($lei, $zpipe);
        my $cb = $l2m->write_cb($lei);
        delete $lei->{1};
        $cb;