r16127 - in /branches/upstream/libbusiness-isbn-perl/current: Changes META.yml Makefile.PL lib/ISBN.pm t/png_barcode.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sat Mar 1 22:34:12 UTC 2008
Author: gregoa-guest
Date: Sat Mar 1 22:34:11 2008
New Revision: 16127
URL: http://svn.debian.org/wsvn/?sc=1&rev=16127
Log:
[svn-upgrade] Integrating new upstream version, libbusiness-isbn-perl (2.03.01)
Modified:
branches/upstream/libbusiness-isbn-perl/current/Changes
branches/upstream/libbusiness-isbn-perl/current/META.yml
branches/upstream/libbusiness-isbn-perl/current/Makefile.PL
branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm
branches/upstream/libbusiness-isbn-perl/current/t/png_barcode.t
Modified: branches/upstream/libbusiness-isbn-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-perl/current/Changes?rev=16127&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/Changes (original)
+++ branches/upstream/libbusiness-isbn-perl/current/Changes Sat Mar 1 22:34:11 2008
@@ -1,6 +1,9 @@
Revision history for Perl extension Business::ISBN.
-$Revision: 2.12 $
-$Id: Changes,v 2.12 2007/10/02 08:17:39 comdog Exp $
+$Revision: 2.13 $
+$Id: Changes,v 2.13 2007/10/27 07:48:50 comdog Exp $
+
+2.03 - Sat Oct 27 02:48:15 2007
+ * adjustments to make png_barcode.t actually work (RT #30291)
2.03 - Tue Oct 2 03:17:34 2007
* Fixed minor distro problems and bumped to release version 2.03
Modified: branches/upstream/libbusiness-isbn-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-perl/current/META.yml?rev=16127&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/META.yml (original)
+++ branches/upstream/libbusiness-isbn-perl/current/META.yml Sat Mar 1 22:34:11 2008
@@ -1,9 +1,9 @@
--- #YAML:1.0
name: Business-ISBN
-version: 2.03
+version: 2.03_01
abstract: Parse and validate ISBNs
license: perl
-generated_by: ExtUtils::MakeMaker version 6.32
+generated_by: ExtUtils::MakeMaker version 6.36
distribution_type: module
requires:
Business::ISBN::Data: 1.15
Modified: branches/upstream/libbusiness-isbn-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-perl/current/Makefile.PL?rev=16127&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/Makefile.PL (original)
+++ branches/upstream/libbusiness-isbn-perl/current/Makefile.PL Sat Mar 1 22:34:11 2008
@@ -1,4 +1,6 @@
-# $Id: Makefile.PL,v 2.4 2007/10/02 08:13:37 comdog Exp $
+# $Id: Makefile.PL,v 2.5 2007/10/27 07:43:55 comdog Exp $
+require 5.006;
+
use ExtUtils::MakeMaker;
eval "use Test::Manifest 1.14";
@@ -21,6 +23,5 @@
'lib/ISBN13.pm' => '$(INST_LIBDIR)/ISBN13.pm',
},
-
clean => { FILES => '*.bak Business-*' },
);
Modified: branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm?rev=16127&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm (original)
+++ branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm Sat Mar 1 22:34:11 2008
@@ -1,5 +1,5 @@
-# $Revision: 2.14 $
-# $Id: ISBN.pm,v 2.14 2007/10/02 08:13:37 comdog Exp $
+# $Revision: 2.15 $
+# $Id: ISBN.pm,v 2.15 2007/10/27 07:43:55 comdog Exp $
package Business::ISBN;
use strict;
@@ -108,7 +108,7 @@
);
};
-$VERSION = "2.03";
+$VERSION = "2.03_01";
sub INVALID_PREFIX () { -4 };
sub INVALID_GROUP_CODE () { -2 };
@@ -577,7 +577,7 @@
}
my $image = GD::Barcode::EAN13->new($ean)->plot->png;
-
+
return $image;
}
Modified: branches/upstream/libbusiness-isbn-perl/current/t/png_barcode.t
URL: http://svn.debian.org/wsvn/branches/upstream/libbusiness-isbn-perl/current/t/png_barcode.t?rev=16127&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/t/png_barcode.t (original)
+++ branches/upstream/libbusiness-isbn-perl/current/t/png_barcode.t Sat Mar 1 22:34:11 2008
@@ -1,26 +1,32 @@
#!/usr/bin/perl
use strict;
-use Test::More 'no_plan';
+use Test::More;
-my $class = 'Business::ISBN';
+my $loaded = eval { require GD::Barcode::EAN13 };
-use_ok( $class );
-
-ok( defined &Business::ISBN::png_barcode, "Method defined" );
-
-foreach my $num ( qw( 0596527241 9780596527242 ) )
+unless( $loaded )
{
- my $isbn = Business::ISBN->new( $num );
- isa_ok( $isbn, $class );
+ plan( skip_all => "You need GD::Barcode::EAN13 to make barcodes" );
+ }
+else
+ {
+ plan( tests => 8 );
- ok( $isbn->is_valid, "Valid ISBN" );
+ my $class = 'Business::ISBN';
- SKIP: {
- skip "Need GD::Barcode::EAN13", 2,
- unless eval "use GD::Barcode::EAN13";
-
+ use_ok( $class );
+
+ ok( defined &Business::ISBN::png_barcode, "Method defined" );
+
+ foreach my $num ( qw( 0596527241 9780596527242 ) )
+ {
+ my $isbn = Business::ISBN->new( $num );
+ isa_ok( $isbn, $class );
+
+ ok( $isbn->is_valid, "Valid ISBN" );
+
my $png = eval { $isbn->png_barcode };
ok( defined $png, "PNG defined" );
}
- }
+ }
More information about the Pkg-perl-cvs-commits
mailing list