#!/usr/bin/perl
# ex: set sw=4 et:
use strict;
use warnings;
use Test::More 'no_plan';
use Test::Exception;
use ok 'Crypt::Random::Source::Base::Handle';
{
my $p = Crypt::Random::Source::Base::Handle->new( handle => \*DATA );
is( $p->handle, \*DATA, "correct handle set up" );
is( $p->get(4), "foo\n", "read some bytes" );
throws_ok { $p->get(100) } qr/enough bytes/i, "underread";
$p->allow_under_read(1);
my $buf;
lives_ok { $buf = $p->get(100) } "underread now allowed";
is( $buf, '', "nothing read" );
}
__DATA__
foo
bar
gorch