| 
      
            Lines 713-724
          sub create_test_database {
      
      
        Link Here
      
     | 
  
        
          | 713 | 
              diag 'creating testing database...';  | 
          713 | 
              diag 'creating testing database...';  | 
        
        
          | 714 | 
              my $installer = C4::Installer->new() or die 'unable to create new installer';  | 
          714 | 
              my $installer = C4::Installer->new() or die 'unable to create new installer';  | 
        
        
          | 715 | 
              # warn Data::Dumper->Dump( [ $installer ], [ 'installer' ] );  | 
          715 | 
              # warn Data::Dumper->Dump( [ $installer ], [ 'installer' ] );  | 
        
            
              | 716 | 
                  my $all_languages = getAllLanguages();  | 
               | 
               | 
            
        
          | 717 | 
              my $error = $installer->load_db_schema();  | 
          716 | 
              my $error = $installer->load_db_schema();  | 
        
        
          | 718 | 
              die "unable to load_db_schema: $error" if ( $error );  | 
          717 | 
              die "unable to load_db_schema: $error" if ( $error );  | 
        
        
          | 719 | 
              my $list = $installer->sql_file_list('en', 'marc21', { optional  => 1, | 
          718 | 
              my $list = $installer->sql_file_list('en', 'marc21', { optional  => 1, | 
        
        
          | 720 | 
                                                                     mandatory => 1 } );  | 
          719 | 
                                                                     mandatory => 1 } );  | 
        
          
            
              | 721 | 
                  my ($fwk_language, $installed_list) = $installer->load_sql_in_order($all_languages, @$list);  | 
              720 | 
                  my ($fwk_language, $installed_list) = $installer->load_sql_in_order(@$list);  | 
            
        
          | 722 | 
              $installer->set_version_syspref();  | 
          721 | 
              $installer->set_version_syspref();  | 
        
        
          | 723 | 
              $installer->set_marcflavour_syspref('MARC21'); | 
          722 | 
              $installer->set_marcflavour_syspref('MARC21'); | 
        
        
          | 724 | 
              diag 'database created.'  | 
          723 | 
              diag 'database created.'  |