| 
      
            Lines 18-24
          
      
      
        Link Here
      
     | 
  
        
          | 18 | 
          use Modern::Perl;  | 
          18 | 
          use Modern::Perl;  | 
        
        
          | 19 | 
           | 
          19 | 
           | 
        
        
          | 20 | 
          use C4::Context;  | 
          20 | 
          use C4::Context;  | 
        
          
            
              | 21 | 
              use Test::More tests => 18;  | 
              21 | 
              use Test::More tests => 29;  | 
            
        
          | 22 | 
          use Test::MockModule;  | 
          22 | 
          use Test::MockModule;  | 
        
        
          | 23 | 
          use DBD::Mock;  | 
          23 | 
          use DBD::Mock;  | 
        
        
          | 24 | 
           | 
          24 | 
           | 
        
  
    | 
      
            Lines 98-101
          ok(!defined $isbn, 'NormalizeISBN returns undef when converting to ISBN10 an ISB
      
      
        Link Here
      
     | 
  
        
          | 98 | 
          @isbns = GetVariationsOfISBNs('abc'); | 
          98 | 
          @isbns = GetVariationsOfISBNs('abc'); | 
        
        
          | 99 | 
          is(scalar(@isbns), 0, 'zero variations returned of invalid ISBN');  | 
          99 | 
          is(scalar(@isbns), 0, 'zero variations returned of invalid ISBN');  | 
        
        
          | 100 | 
           | 
          100 | 
           | 
        
            
               | 
               | 
              101 | 
              is( C4::Koha::GetNormalizedISBN('9780062059994 (hardcover bdg.) | 0062059998 (hardcover bdg.)'), '0062059998', 'Test GetNormalizedISBN' ); | 
            
            
              | 102 | 
              is( C4::Koha::GetNormalizedISBN('9780385753067 (trade) | 0385753063 (trade) | 9780385753074 (lib. bdg.) | 0385753071 (lib. bdg.)'), '0385753063', 'Test GetNormalizedISBN' ); | 
            
            
              | 103 | 
              is( C4::Koha::GetNormalizedISBN('9781432829162 (hardcover) | 1432829165 (hardcover)'), '1432829165', 'Test GetNormalizedISBN' ); | 
            
            
              | 104 | 
              is( C4::Koha::GetNormalizedISBN('9780062063625 (hardcover) | 9780062063632 | 0062063634'), '0062063626', 'Test GetNormalizedISBN' ); | 
            
            
              | 105 | 
              is( C4::Koha::GetNormalizedISBN('9780062059932 (hardback)'), '0062059939', 'Test GetNormalizedISBN' ); | 
            
            
              | 106 | 
              is( C4::Koha::GetNormalizedISBN('9780316370318 (hardback) | 9780316376266 (special edition hardcover) | 9780316405454 (international paperback edition)'), '0316370312', 'Test GetNormalizedISBN' ); | 
            
            
              | 107 | 
              is( C4::Koha::GetNormalizedISBN('9781595148032 (hbk.) | 1595148035 (hbk.)') , '1595148035', 'Test GetNormalizedISBN' ); | 
            
            
              | 108 | 
              is( C4::Koha::GetNormalizedISBN('9780062349859 | 0062349856 | 9780062391308 | 0062391305'), '0062349856', 'Test GetNormalizedISBN' ); | 
            
            
              | 109 | 
              is( C4::Koha::GetNormalizedISBN('9781250075345 (hardcover) | 1250075343 (hardcover) | 9781250049872 (trade pbk.) | 1250049873 (trade pbk.)'), '1250075343', 'Test GetNormalizedISBN' ); | 
            
            
              | 110 | 
              is( C4::Koha::GetNormalizedISBN('9781250067128 | 125006712X'), '125006712X', 'Test GetNormalizedISBN' ); | 
            
            
              | 111 | 
              is( C4::Koha::GetNormalizedISBN('9780373211463 | 0373211465'), '0373211465', 'Test GetNormalizedISBN' ); | 
            
            
              | 112 | 
               | 
            
        
          | 101 | 
          1;  | 
          113 | 
          1;  | 
        
            
              | 102 | 
              -   | 
               | 
               |