| Lines 1-23
          
      
      
        Link Here | 
        
          | 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl | 
        
          | 2 | # | 2 | # | 
          
            
              | 3 | # This Koha test module is a stub! | 3 | # This file is part of Koha. | 
            
              | 4 | # Add more tests here!!! | 4 | # | 
            
              | 5 | # Bug 11541 | 5 | # Copyright (C) 2014  Aleisha Amohia (Bug 11541) | 
            
              |  |  | 6 | # Copyright (C) 2016  Mark Tompsett (Bug 17234) | 
            
              | 7 | # | 
            
              | 8 | # Koha is free software; you can redistribute it and/or modify it | 
            
              | 9 | # under the terms of the GNU General Public License as published by | 
            
              | 10 | # the Free Software Foundation; either version 3 of the License, or | 
            
              | 11 | # (at your option) any later version. | 
            
              | 12 | # | 
            
              | 13 | # Koha is distributed in the hope that it will be useful, but | 
            
              | 14 | # WITHOUT ANY WARRANTY; without even the implied warranty of | 
            
              | 15 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 
            
              | 16 | # GNU General Public License for more details. | 
            
              | 17 | # | 
            
              | 18 | # You should have received a copy of the GNU General Public License | 
            
              | 19 | # along with Koha; if not, see <http://www.gnu.org/licenses>. | 
        
          | 6 |  | 20 |  | 
          
            
              | 7 | use strict; | 21 | # This Koha test module is still a stub! | 
            
              | 8 | use warnings; | 22 | # Add more tests here!!! | 
        
          | 9 |  | 23 |  | 
          
            
              | 10 | use Test::More tests => 9; | 24 | use Modern::Perl; | 
            
              |  |  | 25 | use Test::More tests => 11; | 
            
              | 26 | use Koha::Database; | 
        
          | 11 |  | 27 |  | 
        
          | 12 | BEGIN { | 28 | BEGIN { | 
          
            
              | 13 |         use_ok('C4::Installer'); | 29 |     use_ok('C4::Installer'); | 
        
          | 14 | } | 30 | } | 
        
          | 15 |  | 31 |  | 
          
            
              | 16 | ok ( my $installer = C4::Installer->new(), 'Testing NewInstaller' ); | 32 | ok( my $installer = C4::Installer->new(), 'Testing NewInstaller' ); | 
            
              | 17 | is ( ref $installer, 'C4::Installer', 'Testing class of object' ); | 33 | is( ref $installer, 'C4::Installer', 'Testing class of object' ); | 
            
              | 18 | is ( $installer->{'dbname'},   C4::Context->config("database"), 'Testing DbName' ); | 34 | is( $installer->{'dbname'}, C4::Context->config('database'), 'Testing DbName' ); | 
            
              | 19 | is ( $installer->{'dbms'},     C4::Context->config("db_scheme") ? C4::Context->config("db_scheme") : "mysql", 'Testing DbScheme' ); | 35 | is( | 
            
              | 20 | is ( $installer->{'hostname'}, C4::Context->config("hostname"), 'Testing Hostname' ); | 36 |     $installer->{'dbms'}, | 
            
              | 21 | is ( $installer->{'port'},     C4::Context->config("port"), 'Testing Port' ); | 37 |     C4::Context->config('db_scheme') | 
            
              | 22 | is ( $installer->{'user'},     C4::Context->config("user"), 'Testing User' ); | 38 |     ? C4::Context->config('db_scheme') | 
            
              | 23 | is ( $installer->{'password'}, C4::Context->config("pass"), 'Testing Password' ); | 39 |     : 'mysql', | 
            
              |  |  | 40 |     'Testing DbScheme' | 
            
              | 41 | ); | 
            
              | 42 | is( | 
            
              | 43 |     $installer->{'hostname'}, | 
            
              | 44 |     C4::Context->config('hostname'), | 
            
              | 45 |     'Testing Hostname' | 
            
              | 46 | ); | 
            
              | 47 | is( $installer->{'port'},     C4::Context->config('port'), 'Testing Port' ); | 
            
              | 48 | is( $installer->{'user'},     C4::Context->config('user'), 'Testing User' ); | 
            
              | 49 | is( $installer->{'password'}, C4::Context->config('pass'), 'Testing Password' ); | 
            
              | 50 |  | 
            
              | 51 | # The borrower table is known to have columns and constraints. | 
            
              | 52 | my $schema = Koha::Database->new->schema; | 
            
              | 53 | my $source = $schema->source('Borrower'); | 
            
              | 54 |  | 
            
              | 55 | my @column_names = $source->columns(); | 
            
              | 56 | my $column_name  = $column_names[0]; | 
            
              | 57 | ok( column_exists( 'borrowers', $column_name ), 'Known column does exist' ); | 
            
              | 58 |  | 
            
              | 59 | my @constraint_names = $source->unique_constraint_names(); | 
            
              | 60 | my $constraint_name  = $constraint_names[0]; | 
            
              | 61 | ok( constraint_exists( 'borrowers', $constraint_name ), | 
            
              | 62 |     'Known constraint does exist' ); | 
            
              | 24 | -  |  |  |