r54088 - in /trunk/libnet-subnets-perl: Changes META.yml debian/changelog 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:59:06 2010
New Revision: 54088

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54088
Log:
new upstream release

Modified:
    trunk/libnet-subnets-perl/Changes
    trunk/libnet-subnets-perl/META.yml
    trunk/libnet-subnets-perl/debian/changelog
    trunk/libnet-subnets-perl/lib/Net/Subnets.pm
    trunk/libnet-subnets-perl/t/04check.t
    trunk/libnet-subnets-perl/t/05range.t
    trunk/libnet-subnets-perl/t/06list.t

Modified: trunk/libnet-subnets-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-subnets-perl/Changes?rev=54088&op=diff
==============================================================================
--- trunk/libnet-subnets-perl/Changes (original)
+++ trunk/libnet-subnets-perl/Changes Thu Mar 11 02:59:06 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: trunk/libnet-subnets-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-subnets-perl/META.yml?rev=54088&op=diff
==============================================================================
--- trunk/libnet-subnets-perl/META.yml (original)
+++ trunk/libnet-subnets-perl/META.yml Thu Mar 11 02:59:06 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: trunk/libnet-subnets-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-subnets-perl/debian/changelog?rev=54088&op=diff
==============================================================================
--- trunk/libnet-subnets-perl/debian/changelog (original)
+++ trunk/libnet-subnets-perl/debian/changelog Thu Mar 11 02:59:06 2010
@@ -1,13 +1,14 @@
-libnet-subnets-perl (1.01-1) UNRELEASED; urgency=low
+libnet-subnets-perl (1.02-1) UNRELEASED; urgency=low
 
   This version only removes .perltidyrc
-  IGNORE-VERSION: 1.01-1
+  Fixes tests, not needed unless FTBFS
+  IGNORE-VERSION: 1.02-1
 
   * New upstream release
   * Standards-Version 3.8.4 (no changes)
   * Update copyright information
 
- -- Jonathan Yu <jawnsy at cpan.org>  Sat, 06 Mar 2010 21:21:54 -0500
+ -- Jonathan Yu <jawnsy at cpan.org>  Wed, 10 Mar 2010 22:13:12 -0500
 
 libnet-subnets-perl (1.0-1) unstable; urgency=low
 

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

Modified: trunk/libnet-subnets-perl/t/04check.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-subnets-perl/t/04check.t?rev=54088&op=diff
==============================================================================
--- trunk/libnet-subnets-perl/t/04check.t (original)
+++ trunk/libnet-subnets-perl/t/04check.t Thu Mar 11 02:59:06 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: trunk/libnet-subnets-perl/t/05range.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-subnets-perl/t/05range.t?rev=54088&op=diff
==============================================================================
--- trunk/libnet-subnets-perl/t/05range.t (original)
+++ trunk/libnet-subnets-perl/t/05range.t Thu Mar 11 02:59:06 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: trunk/libnet-subnets-perl/t/06list.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-subnets-perl/t/06list.t?rev=54088&op=diff
==============================================================================
--- trunk/libnet-subnets-perl/t/06list.t (original)
+++ trunk/libnet-subnets-perl/t/06list.t Thu Mar 11 02:59:06 2010
@@ -16,7 +16,7 @@
 
 while (<DATA>) {
     chomp;
-    ok(($_ eq $$list[$. - 1]));
+    ok(($_ eq $$list[$. - 1]), 'right list');
 }
 
 __DATA__