#!/usr/bin/perl -w
# http://rt.cpan.org/Ticket/Display.html?id=27107
# can't call as_isbn13 on an already isbn13 object
use Test::More 'no_plan';
use_ok( Business::ISBN );
my $ISBN = "9789607771278";
my $isbn = Business::ISBN->new( $ISBN );
isa_ok( $isbn, 'Business::ISBN' );
#use Data::Dumper; print STDERR Dumper( $isbn );
ok( $isbn->is_valid, "Valid ISBN" );
is( $isbn->as_string([]), $ISBN, "String version comes back as undef" );
ok( ! $isbn->fix_checksum, "Checksum was just fine, thank you." );
#use Data::Dumper; print STDERR Dumper( $isbn );
my $isbn13 = $isbn->as_isbn13;