r54081 - in /branches/upstream/libnet-subnets-perl/current: Changes META.yml lib/Net/Subnets.pm t/04check.t t/05range.t t/06list.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Thu Mar 11 02:46:21 2010
New Revision: 54081

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54081
Log:
[svn-upgrade] Integrating new upstream version, libnet-subnets-perl (1.02)

Modified:
    branches/upstream/libnet-subnets-perl/current/Changes
    branches/upstream/libnet-subnets-perl/current/META.yml
    branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm
    branches/upstream/libnet-subnets-perl/current/t/04check.t
    branches/upstream/libnet-subnets-perl/current/t/05range.t
    branches/upstream/libnet-subnets-perl/current/t/06list.t

Modified: branches/upstream/libnet-subnets-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-subnets-perl/current/Changes?rev=54081&op=diff
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/Changes (original)
+++ branches/upstream/libnet-subnets-perl/current/Changes Thu Mar 11 02:46:21 2010
@@ -1,4 +1,7 @@
 Revision history for Perl extension Net::Subnets.
+
+1.02  2010-03-09 00:00:00
+        - Cleaned up tests.
 
 1.01  2010-03-01 00:00:00
         - Removed .perltidyrc.

Modified: branches/upstream/libnet-subnets-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-subnets-perl/current/META.yml?rev=54081&op=diff
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/META.yml (original)
+++ branches/upstream/libnet-subnets-perl/current/META.yml Thu Mar 11 02:46:21 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Net-Subnets
-version:            1.01
+version:            1.02
 abstract:           ~
 author:
     - Sebastian Riedel (sri at cpan.org)

Modified: branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm?rev=54081&op=diff
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm (original)
+++ branches/upstream/libnet-subnets-perl/current/lib/Net/Subnets.pm Thu Mar 11 02:46:21 2010
@@ -5,7 +5,7 @@
 use strict;
 use vars qw/$VERSION/;
 
-$VERSION = '1.01';
+$VERSION = '1.02';
 
 sub new {
     my $self = shift;

Modified: branches/upstream/libnet-subnets-perl/current/t/04check.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-subnets-perl/current/t/04check.t?rev=54081&op=diff
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/t/04check.t (original)
+++ branches/upstream/libnet-subnets-perl/current/t/04check.t Thu Mar 11 02:46:21 2010
@@ -17,9 +17,9 @@
 $sn->subnets(\@subnets);
 
 foreach my $addr (@good_addr) {
-    ok($sn->check(\$addr));
+    ok($sn->check(\$addr), 'address is good');
 }
 
 foreach my $addr (@bad_addr) {
-    ok(!$sn->check(\$addr));
+    ok(!$sn->check(\$addr), 'address is bad');
 }

Modified: branches/upstream/libnet-subnets-perl/current/t/05range.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-subnets-perl/current/t/05range.t?rev=54081&op=diff
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/t/05range.t (original)
+++ branches/upstream/libnet-subnets-perl/current/t/05range.t Thu Mar 11 02:46:21 2010
@@ -16,5 +16,6 @@
 my $sn = Net::Subnets->new;
 for (my $i = 0; $i <= $#subnets; $i++) {
     my ($lowip, $highip) = $sn->range(\$subnets[$i]);
-    ok((($lowips[$i] eq $$lowip) && ($highips[$i] eq $$highip)));
+    ok((($lowips[$i] eq $$lowip) && ($highips[$i] eq $$highip)),
+        'right address range');
 }

Modified: branches/upstream/libnet-subnets-perl/current/t/06list.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-subnets-perl/current/t/06list.t?rev=54081&op=diff
==============================================================================
--- branches/upstream/libnet-subnets-perl/current/t/06list.t (original)
+++ branches/upstream/libnet-subnets-perl/current/t/06list.t Thu Mar 11 02:46:21 2010
@@ -16,7 +16,7 @@
 
 while (<DATA>) {
     chomp;
-    ok(($_ eq $$list[$. - 1]));
+    ok(($_ eq $$list[$. - 1]), 'right list');
 }
 
 __DATA__