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

(-)a/t/db_dependent/Context.t (-6 / +3 lines)
Lines 10-17 use vars qw($debug $koha $dbh $config $ret); Link Here
10
10
11
BEGIN {
11
BEGIN {
12
		$debug = $ENV{DEBUG} || 0;
12
		$debug = $ENV{DEBUG} || 0;
13
		diag("Note: The overall number of tests may vary by configuration.");
13
        # Note: The overall number of tests may vary by configuration.
14
		diag("First we need to check your environmental variables");
14
        # First we need to check your environmental variables
15
		for (qw(KOHA_CONF PERL5LIB)) {
15
		for (qw(KOHA_CONF PERL5LIB)) {
16
			ok($ret = $ENV{$_}, "ENV{$_} = $ret");
16
			ok($ret = $ENV{$_}, "ENV{$_} = $ret");
17
		}
17
		}
Lines 28-34 ok( Link Here
28
    'Final linear version is less than or equal to kohaversion.pl'
28
    'Final linear version is less than or equal to kohaversion.pl'
29
);
29
);
30
my @keys = keys %$koha;
30
my @keys = keys %$koha;
31
diag("Number of keys in \%\$koha: " . scalar @keys); 
32
my $width = 0;
31
my $width = 0;
33
if (ok(@keys)) { 
32
if (ok(@keys)) { 
34
    $width = (sort {$a <=> $b} map {length} @keys)[-1];
33
    $width = (sort {$a <=> $b} map {length} @keys)[-1];
Lines 42-49 foreach (sort @keys) { Link Here
42
}
41
}
43
ok($config = $koha->{config}, 'Getting $koha->{config} ');
42
ok($config = $koha->{config}, 'Getting $koha->{config} ');
44
43
45
diag "Testing syspref caching.";
44
# Testing syspref caching
46
47
my $module = new Test::MockModule('C4::Context');
45
my $module = new Test::MockModule('C4::Context');
48
$module->mock(
46
$module->mock(
49
    '_new_dbh',
47
    '_new_dbh',
50
- 

Return to bug 12808