[mafia.git] / t / examples.t

#!/usr/bin/perl
use 5.014000;
use warnings;

use IO::Handle;
use Mafia;

my @examples;
BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' };
use Test::More tests => scalar @examples;

for my $example (@examples) {
	my $out;
	close STDOUT;
	open STDOUT, '>', \$out;
	clean;

	my $ok = join '', IO::File->new("$example.out", '<')->getlines;
	do "$example.pl";
	is $out, $ok, substr $example, length 't/examples/'
}
Commit	Line	Data
344e176e MG	1	#!/usr/bin/perl
	2	use 5.014000;
	3	use warnings;
	4
	5	use IO::Handle;
f1171346 MG	6	use Mafia;
	7
	8	my @examples;
	9	BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' };
	10	use Test::More tests => scalar @examples;
	11
	12	for my $example (@examples) {
40af1ba2 MG	13	my $out;
	14	close STDOUT;
	15	open STDOUT, '>', \$out;
	16	clean;
f1171346	17
344e176e MG	18	my $ok = join '', IO::File->new("$example.out", '<')->getlines;
	19	do "$example.pl";
	20	is $out, $ok, substr $example, length 't/examples/'
f1171346	21	}