[mafia.git] / t / examples.t

#!/usr/bin/perl
use 5.010001;
use strict;
use warnings;

use IO::Handle;

my @examples;
BEGIN { @examples = glob 't/examples/*.pl' };
use Test::More tests => 1 + @examples;
BEGIN { use_ok('Mafia') }

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

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