1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106
|
From: Jan Wagner <waja@cyconet.org>
Subject: disable tests requiring network access
Forwarded: not-needed
--- a/Net/RIPEWhois/in/test.pl
+++ b/Net/RIPEWhois/in/test.pl
@@ -20,15 +20,3 @@ print "ok 1\n";
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-my $whois = new RipeWhois('FormatMode' => 1);
-
-my $assign = new Net::RIPEWhois::in(Whois => $whois);
-
-my @assign = $assign->getIn('212.22/16', '-r -M -T in');
-
-foreach my $inetnum (sort(@assign)) {
- print "$inetnum:\n";
- print "\tna: ", $assign->{$inetnum}{'na'}, "\n";
- print "\tac: ", join('; ', @{$assign->{$inetnum}{'ac'}}), "\n";
- print "\ttc: ", join('; ', @{$assign->{$inetnum}{'tc'}}), "\n";
-}
\ No newline at end of file
--- a/Whois/ArinWhois/test.pl
+++ b/Whois/ArinWhois/test.pl
@@ -28,17 +28,6 @@ else {
exit;
}
-my @result = $whois->QueryObjects("BT235-ARIN");
-
-unless(@result) {
- printf("Query error: %s\n", $whois->GetErrorString());
- print "not ok 3\n";
- exit;
-}
-else {
- print "ok 3\n";
-}
-
print "-" x 30, "\n";
foreach (@result) {
--- a/Whois/RipeWhois/test.pl
+++ b/Whois/RipeWhois/test.pl
@@ -36,25 +36,3 @@ if($whois->GetErrorCode()) {
else {
print "ok 3\n";
}
-
-my $test = 4;
-
-foreach my $object (qw(BAT-RIPE TIB-RIPE CREW-RIPE)) {
-
- my @result = $whois->QueryObjects($object);
-
- unless(@result) {
- printf("Query error: %s\n", $whois->GetErrorString());
- print "not ok $test\n";
- exit;
- }
- else {
- print "ok $test\n";
- print "-" x 30, "\n";
- foreach (@result) {
- print "$_\n";
- print "-" x 30, "\n";
- }
- }
- $test++;
-}
--- a/Whois/test.pl
+++ b/Whois/test.pl
@@ -46,32 +46,3 @@ if($whois->GetError()) {
else {
print "ok 5\n";
}
-
-my $test = 6;
-
-foreach my $object (qw(BAT-RIPE TIB-RIPE)) {
- if($whois->Query($object)) {
- printf("Query error: %s\n", $whois->GetError());
- print "not ok $test\n";
- exit;
- }
- else {
- print "ok $test\n";
- }
-
- $test++;
-
- my $result = $whois->GetResult();
-
- if($result) {
- print "ok $test\n";
- print "-" x 30, "\n";
- print $result;
- print "-" x 30, "\n";
- }
- else {
- print "not ok $test\n";
- exit;
- }
- $test++;
-}
|