view release on metacpan or  search on metacpan

t/NETZ/FUNKTIONALITAT.t  view on Meta::CPAN

#!perl
# vim:enc=utf8:
use strict;
use warnings;

use Test::More;
use File::Temp;

my @pairs = map { [ split m{\n----\n}s ] } split m{%%%%\n}s,
    do { local $/, <DATA> };
plan tests => scalar @pairs;

$ENV{PERL5LIB}
    = join( ':', @INC ) . ( exists $ENV{PERL5LIB} ? ":$ENV{PERL5LIB}" : q{} );

my $test_program = <<'END_TEST_PROGRAM';
#!perl
use Acme::LAUTER::DEUTSCHER;
print <DATA>;