| Lines 2-8
          
      
      
        Link Here | 
        
          | 2 |  | 2 |  | 
        
          | 3 | use Modern::Perl; | 3 | use Modern::Perl; | 
        
          | 4 |  | 4 |  | 
          
            
              | 5 | use Test::More tests => 24; | 5 | use Test::More tests => 25; | 
            
              |  |  | 6 | use Test::Warn; | 
        
          | 6 |  | 7 |  | 
        
          | 7 | use C4::Context; | 8 | use C4::Context; | 
        
          | 8 |  | 9 |  | 
  
    | Lines 126-133
          is_deeply(
      
      
        Link Here | 
        
          | 126 | ); | 127 | ); | 
        
          | 127 |  | 128 |  | 
        
          | 128 | #Test GetClassSort | 129 | #Test GetClassSort | 
          
            
              | 129 | my $getclassSort = GetClassSort( 'source1', 'sortrule1', 'item1' ) | 130 | my $getclassSort; | 
            
              | 130 |   ; #Note: Create a warning:" attempting to use non-existent class sorting routine $sort_routine" | 131 | #Note: Create a warning:" attempting to use non-existent class sorting routine $sort_routine" | 
            
              |  |  | 132 | warning_like | 
            
              | 133 |     { $getclassSort = GetClassSort( 'source1', 'sortrule1', 'item1' ) } | 
            
              | 134 |     qr/attempting to use non-existent class sorting routine/, | 
            
              | 135 |     'Non-existent class warning caught'; | 
        
          | 131 | is( $getclassSort, "SORTRULE1_ITEM1", | 136 | is( $getclassSort, "SORTRULE1_ITEM1", | 
        
          | 132 | " the sort key corresponding to Source1 and sortrule1 and item1 is SORTRULE1_ITEM1" | 137 | " the sort key corresponding to Source1 and sortrule1 and item1 is SORTRULE1_ITEM1" | 
        
          | 133 | ); | 138 | ); | 
            
              | 134 | -  |  |  |