Permalink
Browse files

Merge branch 'release/Net-Whois-RIPE-2.00016'

  • Loading branch information...
2 parents cdbd0f9 + 897e136 commit 200ad64603863813c3db53d982fbdeb14b841e52 @arhuman arhuman committed Sep 11, 2012
View
@@ -1,6 +1,9 @@
Revision history for net-whois-ripe
+2.00016 11 Sep 2012
- Depend on LWP::UserAgent instead of WWW::Mechanize
+ (Thanks to Moritz Lenz)
+ - Make tests more portable
2.00015 17 Jul 2012
- Change the way to test if t/common.pl was well loaded
View
@@ -33,7 +33,7 @@ Version 2.00_015 - BETA
=cut
-our $VERSION = 2.00_015;
+our $VERSION = 2.00_016;
=head1 SYNOPSIS
@@ -599,6 +599,8 @@ hours.
Thanks to Carlos Fuentes for the nice patch with bugfixes for version 2.00_008.
+Thanks to Moritz Lenz for his contribution to versio 2.00_016
+
=head1 COPYRIGHT & LICENSE
Copyright 2010 Luis Motta Campos, all rights reserved.
View
@@ -13,7 +13,7 @@ BEGIN { $class = 'Net::Whois::Object'; use_ok $class; }
my @lines = <DATA>;
my @o = Net::Whois::Object->new(@lines);
-for my $object (@o) {
+for our $object (@o) {
isa_ok $object, $class;
}
isa_ok $o[0], $class . "::Information";
View
@@ -11,10 +11,10 @@ use Test::Exception;
our $class;
BEGIN { $class = 'Net::Whois::Object::AsBlock'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -92,8 +92,8 @@ is( $object->source(), 'RIPE # Filtered', 'source properly parsed' );
$object->source('APNIC');
is( $object->source(), 'APNIC', 'source properly set' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -17,10 +17,10 @@ BEGIN {
# use_ok $class;
}
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -135,8 +135,8 @@ $tested{'mnt_lower'}++;
# TODO
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::Person'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -92,8 +92,8 @@ is( $object->source(), 'RIPE # Filtered', 'source properly parsed' );
$object->source('APNIC');
is( $object->source(), 'APNIC', 'source properly set' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::Role'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -107,8 +107,8 @@ $tested{'trouble'}++;
# TODO
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::AsSet'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -92,8 +92,8 @@ is( $object->source(), 'RIPE # Filtered', 'source properly parsed' );
$object->source('RIPE');
is( $object->source(), 'RIPE', 'source properly set' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::Domain'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -128,8 +128,8 @@ is( $object->source(), 'RIPE # Filtered', 'source properly parsed' );
$object->source('APNIC');
is( $object->source(), 'APNIC', 'source properly set' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::InetNum'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -127,8 +127,8 @@ is_deeply( $object->mnt_routes(), ['RTES-MNT'], 'mnt_routes properly parsed' );
$object->mnt_routes('RTES-MNT2');
is( $object->mnt_routes()->[1], 'RTES-MNT2', 'mnt_routes properly added' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::Inet6Num'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -128,8 +128,8 @@ $tested{'org'}++;
# TODO
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::InetRtr'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -125,8 +125,8 @@ $tested{'mp_peer'}++;
# TODO
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::RtrSet'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -98,8 +98,8 @@ is( $object->source(), 'RIPE', 'source properly parsed' );
$object->source('APNIC');
is( $object->source(), 'APNIC', 'source properly set' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::Mntner'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -125,8 +125,8 @@ $tested{'org'}++;
# TODO
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::KeyCert'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -105,8 +105,8 @@ $tested{'org'}++;
# TODO
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::Route'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -147,8 +147,8 @@ is( $object->source(), 'RIPE', 'source properly parsed' );
$object->source('APNIC');
is( $object->source(), 'APNIC', 'source properly set' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::Route6'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -143,8 +143,8 @@ is( $object->source(), 'RIPE', 'source properly parsed' );
$object->source('APNIC');
is( $object->source(), 'APNIC', 'source properly set' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
View
@@ -11,10 +11,10 @@ STDERR->autoflush(1);
our $class;
BEGIN { $class = 'Net::Whois::Object::RouteSet'; use_ok $class; }
-my %tested;
+our %tested;
my @lines = <DATA>;
-my $object = ( Net::Whois::Object->new(@lines) )[0];
+our $object = ( Net::Whois::Object->new(@lines) )[0];
isa_ok $object, $class;
@@ -104,8 +104,8 @@ is( $object->source(), 'RIPE', 'source properly parsed' );
$object->source('APNIC');
is( $object->source(), 'APNIC', 'source properly set' );
-# Do cause issue with lexicals
-eval `cat t/common.pl`;
+# Common tests
+do 't/common.pl';
ok( $tested{common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
Oops, something went wrong.

0 comments on commit 200ad64

Please sign in to comment.