Change 13443 by jhi@alpha on 2001/12/03 21:50:13
If Socket has not been built (e.g. DJGPP) the libnet
tests fall over with (too) much noise.
Affected files ...
.... //depot/perl/lib/Net/t/config.t#4 edit
.... //depot/perl/lib/Net/t/ftp.t#7 edit
.... //depot/perl/lib/Net/t/hostname.t#7 edit
.... //depot/perl/lib/Net/t/netrc.t#3 edit
.... //depot/perl/lib/Net/t/nntp.t#6 edit
.... //depot/perl/lib/Net/t/require.t#6 edit
.... //depot/perl/lib/Net/t/smtp.t#6 edit
.... //depot/perl/lib/Net/t/time.t#3 edit
Differences ...
==== //depot/perl/lib/Net/t/config.t#4 (text) ====
Index: perl/lib/Net/t/config.t
--- perl/lib/Net/t/config.t.~1~ Mon Dec 3 15:00:05 2001
+++ perl/lib/Net/t/config.t Mon Dec 3 15:00:05 2001
@@ -5,6 +5,9 @@
chdir 't' if -d 't';
@INC = '../lib';
}
+ if (!eval "require Socket") {
+ print "1..0 # no Socket\n"; exit 0;
+ }
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
==== //depot/perl/lib/Net/t/ftp.t#7 (text) ====
Index: perl/lib/Net/t/ftp.t
--- perl/lib/Net/t/ftp.t.~1~ Mon Dec 3 15:00:05 2001
+++ perl/lib/Net/t/ftp.t Mon Dec 3 15:00:05 2001
@@ -5,6 +5,9 @@
chdir 't' if -d 't';
@INC = '../lib';
}
+ if (!eval "require Socket") {
+ print "1..0 # no Socket\n"; exit 0;
+ }
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
==== //depot/perl/lib/Net/t/hostname.t#7 (text) ====
Index: perl/lib/Net/t/hostname.t
--- perl/lib/Net/t/hostname.t.~1~ Mon Dec 3 15:00:05 2001
+++ perl/lib/Net/t/hostname.t Mon Dec 3 15:00:05 2001
@@ -5,6 +5,9 @@
chdir 't' if -d 't';
@INC = '../lib';
}
+ if (!eval "require Socket") {
+ print "1..0 # no Socket\n"; exit 0;
+ }
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
==== //depot/perl/lib/Net/t/netrc.t#3 (text) ====
Index: perl/lib/Net/t/netrc.t
--- perl/lib/Net/t/netrc.t.~1~ Mon Dec 3 15:00:05 2001
+++ perl/lib/Net/t/netrc.t Mon Dec 3 15:00:05 2001
@@ -5,6 +5,9 @@
chdir 't' if -d 't';
@INC = '../lib';
}
+ if (!eval "require Socket") {
+ print "1..0 # no Socket\n"; exit 0;
+ }
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
==== //depot/perl/lib/Net/t/nntp.t#6 (text) ====
Index: perl/lib/Net/t/nntp.t
--- perl/lib/Net/t/nntp.t.~1~ Mon Dec 3 15:00:05 2001
+++ perl/lib/Net/t/nntp.t Mon Dec 3 15:00:05 2001
@@ -5,6 +5,9 @@
chdir 't' if -d 't';
@INC = '../lib';
}
+ if (!eval "require Socket") {
+ print "1..0 # no Socket\n"; exit 0;
+ }
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
==== //depot/perl/lib/Net/t/require.t#6 (text) ====
Index: perl/lib/Net/t/require.t
--- perl/lib/Net/t/require.t.~1~ Mon Dec 3 15:00:05 2001
+++ perl/lib/Net/t/require.t Mon Dec 3 15:00:05 2001
@@ -5,6 +5,9 @@
chdir 't' if -d 't';
@INC = '../lib';
}
+ if (!eval "require Socket") {
+ print "1..0 # no Socket\n"; exit 0;
+ }
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
==== //depot/perl/lib/Net/t/smtp.t#6 (text) ====
Index: perl/lib/Net/t/smtp.t
--- perl/lib/Net/t/smtp.t.~1~ Mon Dec 3 15:00:05 2001
+++ perl/lib/Net/t/smtp.t Mon Dec 3 15:00:05 2001
@@ -5,6 +5,9 @@
chdir 't' if -d 't';
@INC = '../lib';
}
+ if (!eval "require Socket") {
+ print "1..0 # no Socket\n"; exit 0;
+ }
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
==== //depot/perl/lib/Net/t/time.t#3 (text) ====
Index: perl/lib/Net/t/time.t
--- perl/lib/Net/t/time.t.~1~ Mon Dec 3 15:00:05 2001
+++ perl/lib/Net/t/time.t Mon Dec 3 15:00:05 2001
@@ -5,6 +5,9 @@
chdir 't' if -d 't';
@INC = '../lib';
}
+ if (!eval "require Socket") {
+ print "1..0 # no Socket\n"; exit 0;
+ }
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
End of Patch.
