X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fmbox_reader.t;fp=t%2Fmbox_reader.t;h=7d5a6ba5bb64b9c0337c33e33422add22820d91d;hb=abd0a85b212ce1467ddc94d523152d9a65028960;hp=9391dc2480717a7642e4f37f2608a47d2efdb110;hpb=0c15c16c0e1b0c3724c46137f83e1962fad261f6;p=public-inbox.git

diff --git a/t/mbox_reader.t b/t/mbox_reader.t
index 9391dc24..7d5a6ba5 100644
--- a/t/mbox_reader.t
+++ b/t/mbox_reader.t
@@ -32,7 +32,6 @@ if ($ENV{TEST_EXTRA}) {
 }
 
 my $reader = PublicInbox::MboxReader->new;
-my $write_in_full = PublicInbox::LeiToMail->can('write_in_full');
 my $check_fmt = sub {
 	my $fmt = shift;
 	my @order = shuffle(keys %raw);
@@ -41,7 +40,7 @@ my $check_fmt = sub {
 	for my $k (@order) {
 		my $eml = PublicInbox::Eml->new($raw{$k});
 		my $buf = $eml2mbox->($eml);
-		$write_in_full->($fh, $buf, undef);
+		print $fh $$buf or BAIL_OUT "print $!";
 	}
 	seek($fh, 0, SEEK_SET) or BAIL_OUT "seek: $!";
 	$reader->$fmt($fh, sub {