view release on metacpan or  search on metacpan

t/02_test.t  view on Meta::CPAN

print "$osdC\n";

SKIP: {
	if ($] < 5.008) { skip "5.008 tempfiles required",1 }

	my $results;

	{
		local *STDOUT;
		open(STDOUT,"+>", undef);
		my $jon = $OSDc->compile($osdC);
		eval $jon;
		seek(STDOUT,0,SEEK_SET);
		$results = <STDOUT>;
	}
	is($results,"OSDc - where crazy stuff happens\n");
}