view release on metacpan or  search on metacpan

t/login/login.t  view on Meta::CPAN

use ExtUtils::testlib;
use DCE::test;

use DCE::Login;

($pname, $password) = ("cell_admin", "");
$pname ||= (getpwuid($<))[0];
$password ||= $ENV{DCE_PERL_TEST_PW};

unless ($password) {
    warn "Skipping tests: no password to certify identity";
    print "1..1\nok 1\n";
    exit(0);
}

print "1..10\n";