view release on metacpan or  search on metacpan

t/rdbasics.t  view on Meta::CPAN

$loaded = 1;
$skip = 8;
}
else {
$loaded = 1;
print "ok 1\n";

#sub debug { $D || 0 }

my $count = 2;
sub ok($;$)
{
	my $ok = ((@_==2) ? ($_[0] eq $_[1]) : $_[0]);
	#print "\texp=[$_[1]]\n\tres=[$_[0]]\n" if debug && @_==2;
	print "not " unless $ok;
	print "ok $count\n";
	$count++;
	return $ok;
}

######################### End of black magic.

t/rdfullbasics.t  view on Meta::CPAN

print "ok 16\n";
print "ok 17\n";
print "ok 18\n";
print "ok 19\n";
}

else {
sub debug { $D || $D || 0 }

my $count = 2;
sub ok($;$)
{
	my $ok = ((@_==2) ? ($_[0] eq $_[1]) : $_[0]);
	print "\texp=[$_[1]]\n\tres=[$_[0]]\n" if debug && @_==2;
	print "not " unless $ok;
	print "ok $count\n";
print $_[0]." and ".$_[1]."\n" unless $ok;
	$count++;
	return $ok;
}