view release on metacpan or  search on metacpan

t/01util.t  view on Meta::CPAN

use Test::More tests => 10;
use Errno qw(ENOSYS ENXIO);
use strict;

# Test::More <= 0.51 explodes on require_ok("t/util.pl"), so we
# do it the hard way:  supply a prototype for proper parsing of
# the below (otherwise is_impl {block} is taken as an OO call),
# and eval the require.

sub is_implemented(&); # defined *is_impl{CODE}, !defined &is_impl;

eval { require 't/util.pl'; };

ok(!$@, "require 't/util.pl'");

ok(defined &is_implemented, "is_implemented defined");
ok(defined &zero_but_true, "zero_but_true defined");
ok(defined &make_semname, "make_semname defined");

my $v = undef;

t/util.pl  view on Meta::CPAN

#! /usr/bin/perl

# convenience functions for our tests

use Errno qw(ENOSYS);

sub is_implemented(&) {
	my $block = shift;
	local $! = 0;
	&$block;
	return $! != &ENOSYS;
}

sub zero_but_true($) { return ($_[0] and $_[0] == 0); }

sub make_semname {
	my $name = "/abc.$$"; # FreeBSD has 14 char limit?