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;

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

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

foreach my $pair (@pairs) {
    my ( $english, $lauter ) = @$pair;

    my $outfile = File::Temp->new( UNLINK => 1, SUFFIX => '-lauter.pl' );
    print $outfile $test_program, "$english\n";
    $outfile->close;

    open my $infh, '-|', $^X, $outfile or die $!;
    my $result = do { local $/, <$infh> };
    close $infh;

    $english =~ s{\n}{\\n}gs;
    is $result, $lauter, "translated '$english'";
}

__DATA__
Timmy pet the cute puppy.
----