#!perl -w
use strict;
use Test qw(plan ok);
plan tests => 8;
use IO::String;
my $fh = IO::String->new(<<EOT);
a
a
b
a
b
c
a
b
c
d
EOT
$/ = "";
ok(<$fh>, "a\n\n");
ok(<$fh>, "a\nb\n\n");
ok(<$fh>, "a\nb\nc\n\n");
ok(<$fh>, "a\nb\nc\nd\n");
ok(<$fh>, undef);
$fh = IO::String->new(<<EOT);
a
b
EOT
ok(<$fh>, "a\nb\n\n");
ok(<$fh>, undef);
ok(<$fh>, undef);