view release on metacpan or  search on metacpan

t/stream.t  view on Meta::CPAN

#!/usr/bin/perl -w

# test streaming from files, and error in stream creation 

use Test::More tests => 24;
use strict;

BEGIN
  {
  $| = 1;
  use blib;
  unshift @INC, '../lib';
  unshift @INC, '../blib/arch';