#!/usr/bin/perl -sw # Test script for loading parser and zonemodules # $Id: 00-loader.t 454 2005-07-06 13:38:31Z olaf $ # # Called in a fashion simmilar to: # /usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/lib/perl5/5.6.1/i386-freebsd \ # -I/usr/lib/perl5/5.6.1 -e 'use Test::Harness qw(&runtests $verbose); \ # $verbose=0; runtests @ARGV;' t/ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. use Test::More tests=>2; use strict; #use Data::Dumper; BEGIN {use_ok('Net::DNS::SEC', qw(key_difference verify_selfsig)); } # test 1 require_ok('Net::DNS::SEC'); diag("\nThese tests were ran with:\n"); diag("Net::DNS::VERSION: ".$Net::DNS::VERSION); diag("Net::DNS::SEC::VERSION: ".$Net::DNS::SEC::VERSION); diag("Net::DNS::RR::RRSIG::VERSION: ".$Net::DNS::RR::RRSIG::VERSION); diag("Net::DNS::RR::DNSKEY::VERSION: ".$Net::DNS::RR::DNSKEY::VERSION); diag("Net::DNS::RR::NSEC::VERSION: ".$Net::DNS::RR::NSEC::VERSION); diag("Net::DNS::RR::DS::VERSION: ".$Net::DNS::RR::DS::VERSION); diag("Crypt::OpenSSL::DSA::VERSION: ".$Crypt::OpenSSL::DSA::VERSION); diag("Crypt::OpenSSL::RSA::VERSION: ".$Crypt::OpenSSL::RSA::VERSION); diag("Crypt::OpenSSL::Bignum::VERSION: ".$Crypt::OpenSSL::Bignum::VERSION); diag("Net::DNS::SEC::Private::VERSION: ".$Net::DNS::SEC::Private::VERSION); diag("File::Basename::VERSION: ".$File::Basename::VERSION); diag("MIME::Base64::VERSION: ".$MIME::Base64::VERSION); diag("Math::BigInt::VERSION: ".$Math::BigInt::VERSION); diag("Time::Local::VERSION: ".$Time::Local::VERSION); diag("Digest::SHA::VERSION: ".$Digest::SHA::VERSION);