diff options
author | Graham Barr <gbarr@pobox.com> | 2001-10-26 15:23:52 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2001-10-26 15:23:52 +0000 |
commit | f473f405ee0d6abe93386f9f4f855981dfe73955 (patch) | |
tree | 6255eb68bf645f678aceef3c7ab3b2b43e86ce5b | |
parent | 4e1bbf4b28512c6de59225e1b63e05dcbefd78e0 (diff) | |
download | perl-libnet-f473f405ee0d6abe93386f9f4f855981dfe73955.tar.gz |
Make tests compatable with the perl core distribution
-rw-r--r-- | t/ftp.t | 7 | ||||
-rw-r--r-- | t/hostname.t | 8 | ||||
-rw-r--r-- | t/nntp.t | 7 | ||||
-rw-r--r-- | t/require.t | 8 | ||||
-rw-r--r-- | t/smtp.t | 7 |
5 files changed, 37 insertions, 0 deletions
@@ -1,5 +1,12 @@ #!./perl -w +BEGIN { + unless (-d 'blib') { + chdir 't' if -d 't'; + @INC = '../lib'; + } +} + use Net::Config; use Net::FTP; diff --git a/t/hostname.t b/t/hostname.t index 3e55ace..3bbe2cf 100644 --- a/t/hostname.t +++ b/t/hostname.t @@ -1,3 +1,11 @@ +#!./perl -w + +BEGIN { + unless (-d 'blib') { + chdir 't' if -d 't'; + @INC = '../lib'; + } +} use Net::Domain qw(hostname domainname hostdomain); use Net::Config; @@ -1,5 +1,12 @@ #!./perl -w +BEGIN { + unless (-d 'blib') { + chdir 't' if -d 't'; + @INC = '../lib'; + } +} + use Net::Config; use Net::NNTP; use Net::Cmd qw(CMD_REJECT); diff --git a/t/require.t b/t/require.t index 39d8f7e..82b0472 100644 --- a/t/require.t +++ b/t/require.t @@ -1,3 +1,11 @@ +#!./perl -w + +BEGIN { + unless (-d 'blib') { + chdir 't' if -d 't'; + @INC = '../lib'; + } +} print "1..9\n"; my $i = 1; @@ -1,5 +1,12 @@ #!./perl -w +BEGIN { + unless (-d 'blib') { + chdir 't' if -d 't'; + @INC = '../lib'; + } +} + use Net::Config; use Net::SMTP; |