| Lines 17-23
          
      
      
        Link Here | 
        
          | 17 |  | 17 |  | 
        
          | 18 | use Modern::Perl; | 18 | use Modern::Perl; | 
        
          | 19 |  | 19 |  | 
          
            
              | 20 | use Test::More tests => 8; | 20 | use Test::More tests => 9; | 
        
          | 21 | use File::Temp; | 21 | use File::Temp; | 
        
          | 22 | use File::Path qw/make_path/; | 22 | use File::Path qw/make_path/; | 
        
          | 23 |  | 23 |  | 
  
    | Lines 62-65
          is(find_and_slurp($dir, 'test', 'fr-FR'), 'Theme test, language en',    'Fell ba
      
      
        Link Here | 
        
          | 62 | is(find_and_slurp($dir, 'nope', 'es-ES'), 'Theme prog, language es-ES', 'Fell back to prog/es-ES for nope/es-ES'); | 62 | is(find_and_slurp($dir, 'nope', 'es-ES'), 'Theme prog, language es-ES', 'Fell back to prog/es-ES for nope/es-ES'); | 
        
          | 63 | is(find_and_slurp($dir, 'nope', 'fr-FR'), 'Theme prog, language en',    'Fell back to prog/en for nope/fr-FR'); | 63 | is(find_and_slurp($dir, 'nope', 'fr-FR'), 'Theme prog, language en',    'Fell back to prog/en for nope/fr-FR'); | 
        
          | 64 |  | 64 |  | 
            
              |  |  | 65 | my $matching_string = q{<syspref name="singleBranchMode">0</syspref>}; | 
            
              | 66 | my $sysprefs_xml = C4::XSLT::get_xslt_sysprefs(); | 
            
              | 67 | ok( $sysprefs_xml =~ m/$matching_string/, 'singleBranchMode has a value of 0'); | 
            
              | 68 |  | 
        
          | 65 | 1; | 69 | 1; | 
            
              | 66 | -  |  |  |