view release on metacpan or  search on metacpan

t/40ypmaster.t  view on Meta::CPAN

#!perl
#
# Tests for magic __YPMASTER functionality
#
use strict;

use Test::More tests => 1;
eval 'use Test::Differences';	# If available, provides better diagnostics

use Net::NIS qw(:all);

tie my %ypmaster, 'Net::NIS', '__YPMASTER';
if ($yperr != YPERR_SUCCESS()) {
    diag "Skipping: $yperr";
    ok 1, "Skipping test";
    exit 0;
}