view release on metacpan or  search on metacpan

t/Preproc-Tiny.t  view on Meta::CPAN

		ok -f $_;
		eq_or_diff path($_)->slurp, $out;
	}
}

sub test {
	my($in, $out) = @_;
	
	write_input($in);
	
	ok 1, "line ".(caller)[2]." - call script";
	unlink @out_files;
	ok 0 == system $^X, 'blib/bin/pp.pl', @in_files;
	check_output($out);
	
	ok 1, "line ".(caller)[2]." - call module";
	unlink @out_files;
	ok 0 == system $^X, 'blib/lib/Preproc/Tiny.pm', @in_files;
	check_output($out);
	
	ok 1, "line ".(caller)[2]." - use module";
	unlink @out_files;
	pp(@in_files);
	check_output($out);
	
	unlink @in_files, @out_files;
}

test(<<'IN', <<'OUT');
@@sub dup {
@@	$_[0]*2;