summaryrefslogtreecommitdiff
path: root/cpan/libnet/t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/libnet/t')
-rw-r--r--cpan/libnet/t/config.t4
-rw-r--r--cpan/libnet/t/datasend.t4
-rw-r--r--cpan/libnet/t/ftp.t4
-rw-r--r--cpan/libnet/t/hostname.t4
-rw-r--r--cpan/libnet/t/netrc.t4
-rw-r--r--cpan/libnet/t/nntp.t4
-rw-r--r--cpan/libnet/t/nntp_ipv6.t6
-rw-r--r--cpan/libnet/t/nntp_ssl.t4
-rw-r--r--cpan/libnet/t/pop3_ipv6.t6
-rw-r--r--cpan/libnet/t/pop3_ssl.t4
-rw-r--r--cpan/libnet/t/require.t4
-rw-r--r--cpan/libnet/t/smtp.t4
-rw-r--r--cpan/libnet/t/smtp_ipv6.t6
-rw-r--r--cpan/libnet/t/smtp_ssl.t4
-rw-r--r--cpan/libnet/t/time.t4
15 files changed, 33 insertions, 33 deletions
diff --git a/cpan/libnet/t/config.t b/cpan/libnet/t/config.t
index d686ab1d0f..3c29a03d0d 100644
--- a/cpan/libnet/t/config.t
+++ b/cpan/libnet/t/config.t
@@ -6,12 +6,12 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # no Socket\n"; exit 0;
}
undef *{Socket::inet_aton};
undef *{Socket::inet_ntoa};
- if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
$INC{'Socket.pm'} = 1;
diff --git a/cpan/libnet/t/datasend.t b/cpan/libnet/t/datasend.t
index cdbdc295df..3a97c4ba47 100644
--- a/cpan/libnet/t/datasend.t
+++ b/cpan/libnet/t/datasend.t
@@ -6,10 +6,10 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # no Socket\n"; exit 0;
}
- if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
}
diff --git a/cpan/libnet/t/ftp.t b/cpan/libnet/t/ftp.t
index 288cdbc575..16cb868460 100644
--- a/cpan/libnet/t/ftp.t
+++ b/cpan/libnet/t/ftp.t
@@ -6,10 +6,10 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # Skip: no Socket module\n"; exit 0;
}
- if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
print "1..0 # Skip: EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
}
diff --git a/cpan/libnet/t/hostname.t b/cpan/libnet/t/hostname.t
index 25f1cdac20..55031bf345 100644
--- a/cpan/libnet/t/hostname.t
+++ b/cpan/libnet/t/hostname.t
@@ -6,10 +6,10 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # no Socket\n"; exit 0;
}
- if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
}
diff --git a/cpan/libnet/t/netrc.t b/cpan/libnet/t/netrc.t
index 1149bb8f64..e270b368bc 100644
--- a/cpan/libnet/t/netrc.t
+++ b/cpan/libnet/t/netrc.t
@@ -6,10 +6,10 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # no Socket\n"; exit 0;
}
- if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
}
diff --git a/cpan/libnet/t/nntp.t b/cpan/libnet/t/nntp.t
index 303aac4763..559f398554 100644
--- a/cpan/libnet/t/nntp.t
+++ b/cpan/libnet/t/nntp.t
@@ -6,10 +6,10 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # no Socket\n"; exit 0;
}
- if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
}
diff --git a/cpan/libnet/t/nntp_ipv6.t b/cpan/libnet/t/nntp_ipv6.t
index fbb14584a7..199261828e 100644
--- a/cpan/libnet/t/nntp_ipv6.t
+++ b/cpan/libnet/t/nntp_ipv6.t
@@ -28,7 +28,7 @@ my $srv = $inet6class->new(
plan skip_all => "cannot create listener on ::1: $!" if ! $srv;
my $host = $srv->sockhost;
my $port = $srv->sockport;
-diag("server on $host port $port");
+note("server on $host port $port");
plan tests => 1;
@@ -36,7 +36,7 @@ defined( my $pid = fork()) or die "fork failed: $!";
exit(nntp_server()) if ! $pid;
my $cl = Net::NNTP->new(Host => $host, Port => $port,, Debug => $debug);
-diag("created Net::NNTP object");
+note("created Net::NNTP object");
if (!$cl) {
fail("IPv6 NNTP connect failed");
} else {
@@ -62,5 +62,5 @@ sub nntp_server {
print "500 unknown cmd\r\n";
}
}
- diag("NNTP dialog done");
+ note("NNTP dialog done");
}
diff --git a/cpan/libnet/t/nntp_ssl.t b/cpan/libnet/t/nntp_ssl.t
index 66789fb5c8..387899fabd 100644
--- a/cpan/libnet/t/nntp_ssl.t
+++ b/cpan/libnet/t/nntp_ssl.t
@@ -73,7 +73,7 @@ sub nntp_client {
Debug => $debug,
%sslopt,
);
- diag("created Net::NNTP object");
+ note("created Net::NNTP object");
if (!$cl) {
fail( ($ssl ? "SSL ":"" )."NNTP connect failed");
} elsif ($ssl) {
@@ -125,5 +125,5 @@ sub nntp_server {
}
}
- diag("NNTP dialog done");
+ note("NNTP dialog done");
}
diff --git a/cpan/libnet/t/pop3_ipv6.t b/cpan/libnet/t/pop3_ipv6.t
index 004a642cd8..5100951e97 100644
--- a/cpan/libnet/t/pop3_ipv6.t
+++ b/cpan/libnet/t/pop3_ipv6.t
@@ -27,7 +27,7 @@ my $srv = $inet6class->new(
);
plan skip_all => "cannot create listener on ::1: $!" if ! $srv;
my $saddr = "[".$srv->sockhost."]".':'.$srv->sockport;
-diag("server on $saddr");
+note("server on $saddr");
plan tests => 1;
@@ -35,7 +35,7 @@ defined( my $pid = fork()) or die "fork failed: $!";
exit(pop3_server()) if ! $pid;
my $cl = Net::POP3->new($saddr, Debug => $debug);
-diag("created Net::POP3 object");
+note("created Net::POP3 object");
if (!$cl) {
fail("IPv6 POP3 connect failed");
} else {
@@ -62,5 +62,5 @@ sub pop3_server {
}
}
- diag("POP3 dialog done");
+ note("POP3 dialog done");
}
diff --git a/cpan/libnet/t/pop3_ssl.t b/cpan/libnet/t/pop3_ssl.t
index 31b2bbd4b1..3eca064e86 100644
--- a/cpan/libnet/t/pop3_ssl.t
+++ b/cpan/libnet/t/pop3_ssl.t
@@ -67,7 +67,7 @@ sub pop3_client {
);
$sslopt{SSL} = 1 if $ssl;
my $cl = Net::POP3->new($saddr, %sslopt, Debug => $debug);
- diag("created Net::POP3 object");
+ note("created Net::POP3 object");
if (!$cl) {
fail( ($ssl ? "SSL ":"" )."POP3 connect failed");
} elsif ($ssl) {
@@ -121,5 +121,5 @@ sub pop3_server {
}
}
- diag("POP3 dialog done");
+ note("POP3 dialog done");
}
diff --git a/cpan/libnet/t/require.t b/cpan/libnet/t/require.t
index a48951a172..70ec1f67f0 100644
--- a/cpan/libnet/t/require.t
+++ b/cpan/libnet/t/require.t
@@ -6,10 +6,10 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # no Socket\n"; exit 0;
}
- if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
}
diff --git a/cpan/libnet/t/smtp.t b/cpan/libnet/t/smtp.t
index 634390f6b5..9d6f65a484 100644
--- a/cpan/libnet/t/smtp.t
+++ b/cpan/libnet/t/smtp.t
@@ -6,10 +6,10 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # no Socket\n"; exit 0;
}
- if (ord('A') == 193 && eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && eval { require Convert::EBCDIC }) {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
}
diff --git a/cpan/libnet/t/smtp_ipv6.t b/cpan/libnet/t/smtp_ipv6.t
index 78a14fee61..48c7246c1b 100644
--- a/cpan/libnet/t/smtp_ipv6.t
+++ b/cpan/libnet/t/smtp_ipv6.t
@@ -27,7 +27,7 @@ my $srv = $inet6class->new(
);
plan skip_all => "cannot create listener on ::1: $!" if ! $srv;
my $saddr = "[".$srv->sockhost."]".':'.$srv->sockport;
-diag("server on $saddr");
+note("server on $saddr");
plan tests => 1;
@@ -35,7 +35,7 @@ defined( my $pid = fork()) or die "fork failed: $!";
exit(smtp_server()) if ! $pid;
my $cl = Net::SMTP->new($saddr, Debug => $debug);
-diag("created Net::SMTP object");
+note("created Net::SMTP object");
if (!$cl) {
fail("IPv6 SMTP connect failed");
} else {
@@ -64,5 +64,5 @@ sub smtp_server {
}
}
- diag("SMTP dialog done");
+ note("SMTP dialog done");
}
diff --git a/cpan/libnet/t/smtp_ssl.t b/cpan/libnet/t/smtp_ssl.t
index 108d094af3..e91cc9b668 100644
--- a/cpan/libnet/t/smtp_ssl.t
+++ b/cpan/libnet/t/smtp_ssl.t
@@ -67,7 +67,7 @@ sub smtp_client {
);
$sslopt{SSL} = 1 if $ssl;
my $cl = Net::SMTP->new($saddr, %sslopt, Debug => $debug);
- diag("created Net::SMTP object");
+ note("created Net::SMTP object");
if (!$cl) {
fail( ($ssl ? "SSL ":"" )."SMTP connect failed");
} elsif ($ssl) {
@@ -123,5 +123,5 @@ sub smtp_server {
}
}
- diag("SMTP dialog done");
+ note("SMTP dialog done");
}
diff --git a/cpan/libnet/t/time.t b/cpan/libnet/t/time.t
index 43b0e0e070..6dcba3a3e0 100644
--- a/cpan/libnet/t/time.t
+++ b/cpan/libnet/t/time.t
@@ -6,10 +6,10 @@ use strict;
use warnings;
BEGIN {
- if (!eval { require Socket; 1 }) {
+ if (!eval { require Socket }) {
print "1..0 # no Socket\n"; exit 0;
}
- if (ord('A') == 193 && !eval { require Convert::EBCDIC; 1 }) {
+ if (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
$INC{'IO/Socket.pm'} = 1;
View Lorry Controller Status