Hello community,
here is the log from the commit of package perl-Net-Whois-RIPE for
openSUSE:Factory checked in at 2020-01-17 16:07:19
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Net-Whois-RIPE (Old)
and /work/SRC/openSUSE:Factory/.perl-Net-Whois-RIPE.new.26092 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-Whois-RIPE"
Fri Jan 17 16:07:19 2020 rev:32 rq:765203 version:2.007
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-Whois-RIPE/perl-Net-Whois-RIPE.changes
2019-03-04 09:22:21.908579497 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Net-Whois-RIPE.new.26092/perl-Net-Whois-RIPE.changes
2020-01-17 16:07:46.064507616 +0100
@@ -1,0 +2,6 @@
+Fri Jan 17 03:08:15 UTC 2020 - <[email protected]>
+
+- updated to 2.007
+ see /usr/share/doc/packages/perl-Net-Whois-RIPE/Changes
+
+-------------------------------------------------------------------
Old:
----
Net-Whois-RIPE-2.006002.tar.gz
New:
----
Net-Whois-RIPE-2.007.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-Whois-RIPE.spec ++++++
--- /var/tmp/diff_new_pack.QdOdr7/_old 2020-01-17 16:07:46.684507909 +0100
+++ /var/tmp/diff_new_pack.QdOdr7/_new 2020-01-17 16:07:46.688507911 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Net-Whois-RIPE
#
-# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
Name: perl-Net-Whois-RIPE
-Version: 2.006002
+Version: 2.007
Release: 0
%define cpan_name Net-Whois-RIPE
Summary: Pure-Perl implementation of the RIPE Database client
@@ -46,8 +46,6 @@
make %{?_smp_mflags}
%check
-# remote test, will fail
-rm t/bug-hostname-constructor.t
make test
%install
++++++ Net-Whois-RIPE-2.006002.tar.gz -> Net-Whois-RIPE-2.007.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/Changes
new/Net-Whois-RIPE-2.007/Changes
--- old/Net-Whois-RIPE-2.006002/Changes 2017-11-07 15:40:23.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/Changes 2020-01-16 12:05:05.000000000 +0100
@@ -1,26 +1,26 @@
Revision history for net-whois-ripe
-2.006002 2017-11-7
- - Fix a weird bug in Net::Whois::Generif::disconnect() occuring with
older Perl versions (reproduced on 5.12)
- Thanks to all the CPAN testers for their reports!!!
-
-2.006001 2017-11-2
- - Fix bug when hostname was used in constructor
- - Dirty workaround to handle RADB until a complete handling is written
+2.007000 2020-01-16
+ - Version BUMP to allow an upload on PAUSE
+
+2.006001 2020-01-16
+ - Fix bug issue # 26 reported by Moritz Lenz on github
+ (Bad parsing when `assignment-size` is in response)
+ - Update some objects attribute (changed -> last-modified...)
2.006000 2015-05-23
- - Fix bug in attribute autogeneration which affected Inet6Num.pm
+ - Fix bug in attribute autogeneration which affected Inet6Num.pm
2.005006 2015-05-23
- Add helper scripts to automatically cope with RIPE database
modification
- Modify Objects to match RIPE database version 1.79.2
- - Fix to make Net::Whois::Object now emit warning instead of dieing
on unknwon attribute
+ - Fix to make Net::Whois::Object now emit warning instead of
dieing on unknwon attribute
2.005005 2015-03-26
- - Fix to make Net::Whois::Generic use 'hostname' parameter
+ - Fix to make Net::Whois::Generic use 'hostname' parameter
(reported by Stanislav Sinyagin)
- - Fix on Net::Whois::Object::AutNum to accept lowecase AutNum name
-
+ - Fix on Net::Whois::Object::AutNum to accept lowecase AutNum name
+
2.005004 2014-06-29
- Modify Objects to match RIPE database version 1.74.1
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/MANIFEST
new/Net-Whois-RIPE-2.007/MANIFEST
--- old/Net-Whois-RIPE-2.006002/MANIFEST 2017-11-07 15:40:23.000000000
+0100
+++ new/Net-Whois-RIPE-2.007/MANIFEST 2020-01-16 10:58:15.000000000 +0100
@@ -109,8 +109,6 @@
t/300-AFRINIC.t
t/305-APNIC.t
t/boilerplate.t
-t/bug-hostname-constructor.t
-t/bug-disconnect.t
t/common.pl
t/pod-coverage.t
t/pod.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/META.json
new/Net-Whois-RIPE-2.007/META.json
--- old/Net-Whois-RIPE-2.006002/META.json 2017-11-07 15:42:12.000000000
+0100
+++ new/Net-Whois-RIPE-2.007/META.json 2020-01-16 12:06:36.000000000 +0100
@@ -4,7 +4,7 @@
"Luis Motta Campos <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.3, CPAN::Meta::Converter
version 2.143240",
+ "generated_by" : "ExtUtils::MakeMaker version 7.1002, CPAN::Meta::Converter
version 2.150005",
"license" : [
"unknown"
],
@@ -48,5 +48,6 @@
"url" : "https://github.com/arhuman/Net-Whois-RIPE";
}
},
- "version" : "2.006002"
+ "version" : 2.007,
+ "x_serialization_backend" : "JSON::PP version 2.27300_01"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/META.yml
new/Net-Whois-RIPE-2.007/META.yml
--- old/Net-Whois-RIPE-2.006002/META.yml 2017-11-07 15:42:12.000000000
+0100
+++ new/Net-Whois-RIPE-2.007/META.yml 2020-01-16 12:06:36.000000000 +0100
@@ -6,7 +6,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.3, CPAN::Meta::Converter version
2.143240'
+generated_by: 'ExtUtils::MakeMaker version 7.1002, CPAN::Meta::Converter
version 2.150005'
license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -25,4 +25,5 @@
resources:
bugtracker: https://github.com/arhuman/Net-Whois-RIPE/issues
repository: https://github.com/arhuman/Net-Whois-RIPE
-version: '2.006002'
+version: 2.007
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/README
new/Net-Whois-RIPE-2.007/README
--- old/Net-Whois-RIPE-2.006002/README 2017-11-01 19:49:55.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/README 2020-01-16 10:58:15.000000000 +0100
@@ -36,7 +36,7 @@
Search CPAN
- http://search.cpan.org/dist/net-whois-ripe
+ http://search.cpan.org/dist/Net-Whois-RIPE
COPYRIGHT AND LICENCE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/README.md
new/Net-Whois-RIPE-2.007/README.md
--- old/Net-Whois-RIPE-2.006002/README.md 2017-11-01 19:49:55.000000000
+0100
+++ new/Net-Whois-RIPE-2.007/README.md 2020-01-16 10:58:15.000000000 +0100
@@ -31,7 +31,7 @@
Search CPAN
- http://search.cpan.org/dist/net-whois-ripe
+ http://search.cpan.org/dist/Net-Whois-RIPE
## COPYRIGHT AND LICENCE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Generic.pm
new/Net-Whois-RIPE-2.007/lib/Net/Whois/Generic.pm
--- old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Generic.pm 2017-11-07
15:40:06.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/lib/Net/Whois/Generic.pm 2020-01-16
10:58:15.000000000 +0100
@@ -134,7 +134,6 @@
unfiltered => 0,
types => undef,
disconnected => 0,
- hostname => undef,
);
sub new
@@ -378,9 +377,9 @@
my $self = shift;
if ($self->is_connected) {
my $socket = $self->{__state}{socket};
+ $socket->close;
$self->{__state}{ioselect}->remove($socket)
if $self->{__state}{ioselect};
- $socket->close;
delete $self->{__state}{socket};
}
}
@@ -717,7 +716,7 @@
=item * Search CPAN
-L<http://search.cpan.org/dist/net-whois-ripe>
+L<http://search.cpan.org/dist/Net-Whois-RIPE>
=back
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Object/Inet6Num.pm
new/Net-Whois-RIPE-2.007/lib/Net/Whois/Object/Inet6Num.pm
--- old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Object/Inet6Num.pm
2017-11-01 19:49:55.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/lib/Net/Whois/Object/Inet6Num.pm 2020-01-16
11:22:45.000000000 +0100
@@ -13,14 +13,15 @@
#
# inet6num: [mandatory] [single] [primary/lookup key]
# netname: [mandatory] [single] [lookup key]
-# descr: [mandatory] [multiple] [ ]
+# descr: [optional] [multiple] [ ]
# country: [mandatory] [multiple] [ ]
# geoloc: [optional] [single] [ ]
# language: [optional] [multiple] [ ]
# org: [optional] [single] [inverse key]
-# sponsoring-org: [generated] [single] [ ]
+# sponsoring-org: [optional] [single] [ ]
# admin-c: [mandatory] [multiple] [inverse key]
# tech-c: [mandatory] [multiple] [inverse key]
+# abuse-c: [optional] [single] [inverse key]
# status: [mandatory] [single] [ ]
# assignment-size:[optional] [single] [ ]
# remarks: [optional] [multiple] [ ]
@@ -30,19 +31,18 @@
# mnt-routes: [optional] [multiple] [inverse key]
# mnt-domains: [optional] [multiple] [inverse key]
# mnt-irt: [optional] [multiple] [inverse key]
-# changed: [mandatory] [multiple] [ ]
# created: [generated] [single] [ ]
# last-modified: [generated] [single] [ ]
# source: [mandatory] [single] [ ]
#
-# % This query was served by the RIPE Database Query Service version 1.79.2
(DB-1)
+# % This query was served by the RIPE Database Query Service version 1.96
(ANGUS)
#
#
__PACKAGE__->attributes( 'primary', [ 'inet6num' ] );
-__PACKAGE__->attributes( 'mandatory', [ 'inet6num', 'netname', 'descr',
'country', 'admin_c', 'tech_c', 'status', 'mnt_by', 'changed', 'source' ] );
-__PACKAGE__->attributes( 'optional', [ 'geoloc', 'language', 'org',
'sponsoring_org', 'assignment_size', 'remarks', 'notify', 'mnt_lower',
'mnt_routes', 'mnt_domains', 'mnt_irt', 'created', 'last_modified' ] );
-__PACKAGE__->attributes( 'single', [ 'inet6num', 'netname', 'geoloc',
'org', 'sponsoring_org', 'status', 'assignment_size', 'created',
'last_modified', 'source' ] );
-__PACKAGE__->attributes( 'multiple', [ 'descr', 'country', 'language',
'admin_c', 'tech_c', 'remarks', 'notify', 'mnt_by', 'mnt_lower', 'mnt_routes',
'mnt_domains', 'mnt_irt', 'changed' ] );
+__PACKAGE__->attributes( 'mandatory', [ 'inet6num', 'netname', 'country',
'admin_c', 'tech_c', 'status', 'mnt_by', 'source' ] );
+__PACKAGE__->attributes( 'optional', [ 'descr', 'geoloc', 'language',
'org', 'sponsoring_org', 'abuse_c', 'assignment_size', 'remarks', 'notify',
'mnt_lower', 'mnt_routes', 'mnt_domains', 'mnt_irt', 'created', 'last_modified'
] );
+__PACKAGE__->attributes( 'single', [ 'inet6num', 'netname', 'geoloc',
'org', 'sponsoring_org', 'abuse_c', 'status', 'assignment_size', 'created',
'last_modified', 'source' ] );
+__PACKAGE__->attributes( 'multiple', [ 'descr', 'country', 'language',
'admin_c', 'tech_c', 'remarks', 'notify', 'mnt_by', 'mnt_lower', 'mnt_routes',
'mnt_domains', 'mnt_irt' ] );
# End of auto-generated lines
#######################################################################################
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Object/InetNum/APNIC.pm
new/Net-Whois-RIPE-2.007/lib/Net/Whois/Object/InetNum/APNIC.pm
--- old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Object/InetNum/APNIC.pm
2017-11-01 19:49:55.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/lib/Net/Whois/Object/InetNum/APNIC.pm
2020-01-16 11:35:00.000000000 +0100
@@ -22,16 +22,16 @@
# mnt-lower: [optional] [multiple] [inverse key]
# mnt-routes: [optional] [multiple] [inverse key]
# mnt-irt: [mandatory] [multiple] [inverse key]
-# changed: [mandatory] [multiple] [ ]
+# last-modified: [generated] [single] [ ]
# source: [mandatory] [single] [ ]
#
# % This query was served by the APNIC Whois Service version 1.68.5 (WHOIS4)
__PACKAGE__->attributes( 'primary', [ 'inetnum' ] );
-__PACKAGE__->attributes( 'mandatory', [ 'inetnum', 'netname', 'descr',
'country', 'admin_c', 'tech_c', 'status', 'mnt_by', 'mnt_irt', 'changed',
'source' ] );
-__PACKAGE__->attributes( 'optional', [ 'geoloc', 'language', 'org',
'remarks', 'notify', 'mnt_lower', 'mnt_routes' ] );
-__PACKAGE__->attributes( 'single', [ 'inetnum', 'netname', 'geoloc', 'org',
'status', 'source' ] );
-__PACKAGE__->attributes( 'multiple', [ 'descr', 'country', 'language',
'admin_c', 'tech_c', 'remarks', 'notify', 'mnt_by', 'mnt_lower', 'mnt_routes',
'mnt_irt', 'changed' ] );
+__PACKAGE__->attributes( 'mandatory', [ 'inetnum', 'netname', 'descr',
'country', 'admin_c', 'tech_c', 'status', 'mnt_by', 'mnt_irt', 'source' ] );
+__PACKAGE__->attributes( 'optional', [ 'geoloc', 'language', 'org',
'remarks', 'notify', 'mnt_lower', 'mnt_routes', 'last_modified' ] );
+__PACKAGE__->attributes( 'single', [ 'inetnum', 'netname', 'geoloc', 'org',
'status', 'last_modified', 'source' ] );
+__PACKAGE__->attributes( 'multiple', [ 'descr', 'country', 'language',
'admin_c', 'tech_c', 'remarks', 'notify', 'mnt_by', 'mnt_lower', 'mnt_routes',
'mnt_irt' ] );
=head1 NAME
@@ -227,11 +227,10 @@
Domain objects associated with the address range specified by the Inetnum
object.
-=head2 B<changed( [$changed] )>
+=head2 B<last-modified()>
-Accessor to the changed attribute.
-Accepts an optional changed value to be added to the changed array,
-always return the current changed array.
+Accessor to the last-modified attribute.
+always return the latest modification date.
The email address of who last updated the database object and the date it
occurred.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Object/Mntner/APNIC.pm
new/Net-Whois-RIPE-2.007/lib/Net/Whois/Object/Mntner/APNIC.pm
--- old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Object/Mntner/APNIC.pm
2017-11-01 19:49:55.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/lib/Net/Whois/Object/Mntner/APNIC.pm
2020-01-16 11:41:55.000000000 +0100
@@ -6,7 +6,7 @@
# % [whois.apnic.net]
# % Whois data copyright terms http://www.apnic.net/db/dbcopyright.html
#
-# mntner: [mandatory] [single] [primary/lookup key]
+# mntner: [mandatory] [single] [primary/look-up key]
# descr: [mandatory] [multiple] [ ]
# country: [optional] [single] [ ]
# org: [optional] [multiple] [inverse key]
@@ -19,17 +19,17 @@
# notify: [optional] [multiple] [inverse key]
# abuse-mailbox: [optional] [multiple] [inverse key]
# mnt-by: [mandatory] [multiple] [inverse key]
-# referral-by: [mandatory] [single] [inverse key]
-# changed: [mandatory] [multiple] [ ]
+# referral-by: [optional] [single] [inverse key]
+# last-modified: [generated] [single] [ ]
# source: [mandatory] [single] [ ]
#
-# % This query was served by the APNIC Whois Service version 1.68.5 (WHOIS4)
+# % This query was served by the APNIC Whois Service version 1.88.15-46
(WHOIS-UK4)
__PACKAGE__->attributes( 'primary', [ 'mntner' ] );
-__PACKAGE__->attributes( 'mandatory', [ 'mntner', 'descr', 'admin_c',
'upd_to', 'auth', 'mnt_by', 'referral_by', 'changed', 'source' ] );
-__PACKAGE__->attributes( 'optional', [ 'country', 'org', 'tech_c', 'mnt_nfy',
'remarks', 'notify', 'abuse_mailbox' ] );
-__PACKAGE__->attributes( 'single', [ 'mntner', 'country', 'referral_by',
'source' ] );
-__PACKAGE__->attributes( 'multiple', [ 'descr', 'org', 'admin_c', 'tech_c',
'upd_to', 'mnt_nfy', 'auth', 'remarks', 'notify', 'abuse_mailbox', 'mnt_by',
'changed' ] );
+__PACKAGE__->attributes( 'mandatory', [ 'mntner', 'descr', 'admin_c',
'upd_to', 'auth', 'mnt_by', 'source' ] );
+__PACKAGE__->attributes( 'optional', [ 'country', 'org', 'tech_c', 'mnt_nfy',
'remarks', 'notify', 'abuse_mailbox', 'referral_by', 'last_modified' ] );
+__PACKAGE__->attributes( 'single', [ 'mntner', 'country', 'referral_by',
'last_modified', 'source' ] );
+__PACKAGE__->attributes( 'multiple', [ 'descr', 'org', 'admin_c', 'tech_c',
'upd_to', 'mnt_nfy', 'auth', 'remarks', 'notify', 'abuse_mailbox', 'mnt_by' ] );
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Object.pm
new/Net-Whois-RIPE-2.007/lib/Net/Whois/Object.pm
--- old/Net-Whois-RIPE-2.006002/lib/Net/Whois/Object.pm 2017-11-07
09:59:43.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/lib/Net/Whois/Object.pm 2020-01-16
11:18:44.000000000 +0100
@@ -239,7 +239,7 @@
$attribute = 'response';
$value = $1;
- } elsif ( $line =~ /^(\S+):\s+(.*)/ ) {
+ } elsif ( $line =~ /^(\S+):\s*(.*)/ ) {
# Attribute line
$attribute = $1;
@@ -680,10 +680,6 @@
$rir = $a->[1];
$rir =~ s/^(\S+)\s*#.*/$1/;
$rir = uc $rir;
- # RADB use same database as RIPE
- if ($rir eq 'RADB') {
- $rir = 'RIPE';
- }
$rir = undef if $rir =~ /^(RIPE|TEST)$/; # For
historical/compatibility reason RIPE objects aren't derived
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/lib/Net/Whois/RIPE.pm
new/Net-Whois-RIPE-2.007/lib/Net/Whois/RIPE.pm
--- old/Net-Whois-RIPE-2.006002/lib/Net/Whois/RIPE.pm 2017-11-07
15:40:23.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/lib/Net/Whois/RIPE.pm 2020-01-16
12:05:33.000000000 +0100
@@ -28,11 +28,11 @@
=head1 VERSION
-Version 2.006002
+Version 2.007000
=cut
-our $VERSION = 2.006002;
+our $VERSION = 2.007000;
=head1 SYNOPSIS
@@ -593,7 +593,7 @@
=item * Search CPAN
-L<http://search.cpan.org/dist/net-whois-ripe>
+L<http://search.cpan.org/dist/Net-Whois-RIPE>
=back
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/t/04-generic.t
new/Net-Whois-RIPE-2.007/t/04-generic.t
--- old/Net-Whois-RIPE-2.006002/t/04-generic.t 2017-11-07 15:40:06.000000000
+0100
+++ new/Net-Whois-RIPE-2.007/t/04-generic.t 2020-01-16 10:58:15.000000000
+0100
@@ -46,6 +46,11 @@
# is_connected()
ok $c->is_connected, 'The client is connected.';
+ # reconnect()
+ eval {$c->reconnect };
+ ok !$@,'The client re-connected without dying.';
+ ok $c->is_connected, 'The client is connected (once more).';
+
# ios()
isa_ok $c->ios, 'IO::Select';
ok $c->ios->count >= 1,
@@ -61,7 +66,6 @@
my $as_set;
eval { ($as_set) = $c->query('AS-JAGUAR', {type => 'AsSet'}) };
ok !$@, q{Client performs queries without dying $@};
- ok($as_set, "Net::Whois::Object::AsSet returned for 'AS-JAGUAR'
query");
isa_ok $as_set, 'Net::Whois::Object::AsSet';
}
@@ -89,30 +93,19 @@
eval { @objects = Net::Whois::Generic->query('AS30781', {attribute =>
'remarks'}) };
SKIP: {
- my $not_string;
skip "Network issue",14 if ( $@ =~ /IO::Socket::INET/ );
for my $object (@objects) {
- $not_string = ref($object) if ref($object);
+ ok(!ref($object), "query() : String returned for 'remarks' attribute
filter")
}
- ok(!$not_string, "Only string returned for 'remarks' attribute filter on
'AS30781' query");
}
eval { @objects = Net::Whois::Generic->query('AS30781') };
SKIP: {
- my %objects;
skip "Network issue",14 if ( $@ =~ /IO::Socket::INET/ );
for my $object (@objects) {
- if (ref($object) =~ /Net::Whois::Object::([a-zA-Z]+)/ and
!$objects{$object}) {
- $objects{$1} = 1;
- } else {
- ok(ref($object), "Object returned for 'AS30781' query");
- }
- }
-
- for my $t ('Information', 'AutNum', 'AsBlock') {
- ok($objects{$t}, "Expected $t object returned sor 'AS30781' query");
+ ok(ref($object) =~ /Net::Whois::Object/ , "query() : Object
".ref($object)." returned for 'remarks' attribute filter")
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/t/140-Inet6Num.t
new/Net-Whois-RIPE-2.007/t/140-Inet6Num.t
--- old/Net-Whois-RIPE-2.006002/t/140-Inet6Num.t 2017-11-01
19:49:55.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/t/140-Inet6Num.t 2020-01-16 11:25:04.000000000
+0100
@@ -19,7 +19,7 @@
# Non-inherited methods
can_ok $object, qw( inet6num netname descr country admin_c tech_c
- status remarks notify mnt_by mnt_lower mnt_routes mnt_domains mnt_irt
changed source);
+ status remarks notify mnt_by mnt_lower mnt_routes mnt_domains mnt_irt
source);
can_ok $object, qw( mnt_irt );
# Check if typed attributes are correct
@@ -122,12 +122,6 @@
$object->mnt_domains('MAINT2-EXAMPLENET-AP');
is( $object->mnt_domains()->[1], 'MAINT2-EXAMPLENET-AP', 'mnt_domains properly
added' );
-# Test 'changed'
-$tested{'changed'}++;
-is_deeply( $object->changed(), ['[email protected] 20101231'], 'changed
properly parsed' );
-$object->changed('[email protected] 20121231');
-is( $object->changed()->[1], '[email protected] 20121231', 'changed properly
added' );
-
# Test 'source'
$tested{'source'}++;
is( $object->source(), 'RIPE', 'source properly parsed' );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/t/bug-disconnect.t
new/Net-Whois-RIPE-2.007/t/bug-disconnect.t
--- old/Net-Whois-RIPE-2.006002/t/bug-disconnect.t 2017-11-07
15:40:06.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/t/bug-disconnect.t 1970-01-01 01:00:00.000000000
+0100
@@ -1,54 +0,0 @@
-use strict;
-use warnings;
-use Test::More qw( no_plan );
-
-# synchronizes the {error,standard} output of this test.
-# use IO::Handle;
-# STDOUT->autoflush(1);
-# STDERR->autoflush(1);
-
-our $class;
-BEGIN { $class = 'Net::Whois::Generic'; use_ok $class; }
-
- my $c = $class->new( disconnected => 1 );
-
- # connect()
- eval { $c->connect };
-
-SKIP: {
- skip "Network issue",14 if ( $@ =~ /IO::Socket::INET/ );
-
- ok (!$@, "The client connected without dying. $@");
-
- # is_connected()
- ok $c->is_connected, 'The client is connected.';
-
- # reconnect()
- eval {$c->reconnect };
- ok !$@,'The client re-connected without dying.';
- ok $c->is_connected, 'The client is connected (once more).';
-
- # ios()
- isa_ok $c->ios, 'IO::Select';
- ok $c->ios->count >= 1,
- q{There's at least one handle registered with the IO::Select object.};
-
- # socket()
- isa_ok $c->socket, 'IO::Socket';
-
- # query() RIPE
- {
- my $as_set;
- eval { ($as_set) = $c->query('AS-JAGUAR', {type => 'AsSet'}) };
- ok !$@, q{Client performs queries without dying $@};
- ok($as_set, "Net::Whois::Object::AsSet returned for 'AS-JAGUAR'
query");
- isa_ok $as_set, 'Net::Whois::Object::AsSet';
- }
-
- # disconnect()
- eval { $c->disconnect };
- ok !$@ , 'The client disconnected without dying.';
- ok !$c->is_connected, 'The client is not connected (anymore).';
-
- # DESTROY()
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-RIPE-2.006002/t/bug-hostname-constructor.t
new/Net-Whois-RIPE-2.007/t/bug-hostname-constructor.t
--- old/Net-Whois-RIPE-2.006002/t/bug-hostname-constructor.t 2017-11-02
20:10:07.000000000 +0100
+++ new/Net-Whois-RIPE-2.007/t/bug-hostname-constructor.t 1970-01-01
01:00:00.000000000 +0100
@@ -1,16 +0,0 @@
-#!perl
-use strict;
-use warnings;
-use Test::More tests => 2;
-
-use Net::Whois::Generic;
-use Iterator;
-
-my $w = Net::Whois::Generic->new('hostname' => 'whois.radb.net');
-
-my ($as_found) = $w->query('-T aut-num AS11344',
- { type => 'AutNum' });
-
-ok($as_found);
-use Data::Dumper;
-is($as_found->as_name(), 'METAWEB');
