view release on metacpan or  search on metacpan

t/06-ua.t  view on Meta::CPAN

use t::Log4test;

our $tests = 0;
our $pid = $$;
our $all_ok = 1;

END {
	print "1..$tests\n" if $pid == $$;
}

sub ok($;$) {
	my $test = shift;
	my $name = shift;
	unless ($test) {
		print "not ";
		$all_ok = 0;
	}
	print "ok ".(++$tests);
	if ($name) {
		print " - $name";
	}