view release on metacpan or  search on metacpan

t/guess.t  view on Meta::CPAN

#!perl

use Test::More tests => 2;
require "t/common.pl";

my $buffer = tie *OUT, 'Handle';
my $input  = tie *STDIN, 'Handle';

$$input = ">><><>>><=";
my $expect = join("\r\n", qw(500?  750?  875?  812?  843?  827?  835?  839?  841?  840?  840),'');

select OUT;
my $ok = require "examples/guess.spl";
select STDOUT;
ok($ok);
is($$buffer,$expect);