git.rot13.org Git - webpac2/blob - t/3-normalize-isbn.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use blib;
   5
   6 use Test::More tests => 4;
   7
   8 BEGIN {
   9         use_ok( 'WebPAC::Test' );
  10         use_ok( 'WebPAC::Normalize::ISBN' );
  11 }
  12
  13 is_deeply(
  14         [ isbn_13( '1558607013', '978-1558607019' ) ],
  15         [ '978-1-55860-701-9', '978-1-55860-701-9', ],
  16 'isbn_13' );
  17
  18 is_deeply(
  19         [ isbn_10( '1558607013', '978-1558607019' ) ],
  20         [ '1-55860-701-3', '1-55860-701-3' ],
  21 'isbn_10' );