View | Details | Raw Unified | Return to bug 11541
Collapse All | Expand All

(-)a/t/Installer.t (-1 / +23 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
#
3
# This Koha test module is a stub!
4
# Add more tests here!!!
5
# Bug 11541
6
7
use strict;
8
use warnings;
9
10
use Test::More tests => 9;
11
12
BEGIN {
13
        use_ok('C4::Installer');
14
}
15
16
ok ( my $installer = C4::Installer->new(), 'Testing NewInstaller' );
17
ok ( my $class = {shift}, 'Testing Shift' );
18
ok ( my $self->{'dbname'} = C4::Context->config("database"), 'Testing DbName' );
19
ok ( my $self->{'dbms'} = C4::Context->config("db_scheme") ? C4::Context->config("db_scheme") : "mysql", 'Testing DbScheme' );
20
ok ( my $self->{'hostname'} = C4::Context->config("hostname"), 'Testing Hostname' );
21
ok ( my	$self->{'port'} = C4::Context->config("port"), 'Testing Port' );
22
ok ( my	$self->{'user'} = C4::Context->config("user"), 'Testing User' );
23
ok ( my $self->{'password'} = C4::Context->config("pass"), 'Testing Password' );

Return to bug 11541