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

(-)a/t/db_dependent/00-strict.t (-24 lines)
Lines 1-24 Link Here
1
# This script is called by the pre-commit git hook to test modules compile
2
3
use strict;
4
use warnings;
5
use Test::More;
6
use Test::Strict;
7
use File::Spec;
8
use File::Find;
9
use lib("misc/translator");
10
use lib("installer");
11
12
my @dirs = ( 'acqui', 'admin', 'authorities', 'basket',
13
    'catalogue', 'cataloguing', 'changelanguage.pl', 'circ', 'debian', 'docs',
14
    'edithelp.pl', 'errors', 'fix-perl-path.PL', 'help.pl', 'installer',
15
    'koha_perl_deps.pl', 'kohaversion.pl', 'labels',
16
    'mainpage.pl', 'Makefile.PL', 'members', 'misc', 'offline_circ', 'opac',
17
    'patroncards', 'reports', 'reserve', 'resetversion.pl', 'reviews',
18
    'rewrite-config.PL', 'rotating_collections', 'serials', 'services', 'skel',
19
    'sms', 'suggestion', 'svc', 'tags', 'tools', 'virtualshelves' );
20
21
$Test::Strict::TEST_STRICT = 0;
22
$Test::Strict::TEST_SKIP = [ 'misc/kohalib.pl', 'sms/sms_listen_windows_start.pl', 'misc/plack/koha.psgi' ];
23
24
all_perl_files_ok(@dirs);
(-)a/t/db_dependent/Auth_with_ldap.t (-7 / +4 lines)
Lines 27-37 use C4::Context; Link Here
27
27
28
use Koha::Patrons;
28
use Koha::Patrons;
29
29
30
my $dbh = C4::Context->dbh;
30
my $schema = Koha::Database->new->schema;
31
31
$schema->storage->txn_begin;
32
# Start transaction
33
$dbh->{AutoCommit} = 0;
34
$dbh->{RaiseError} = 1;
35
32
36
my $builder = t::lib::TestBuilder->new();
33
my $builder = t::lib::TestBuilder->new();
37
34
Lines 118-123 subtest 'checkpw_ldap tests' => sub { Link Here
118
115
119
    plan tests => 4;
116
    plan tests => 4;
120
117
118
    my $dbh = C4::Context->dbh;
121
    ## Connection fail tests
119
    ## Connection fail tests
122
    $desired_connection_result = 'error';
120
    $desired_connection_result = 'error';
123
    warning_is {
121
    warning_is {
Lines 508-513 sub reload_ldap_module { Link Here
508
    return;
506
    return;
509
}
507
}
510
508
511
$dbh->rollback;
509
$schema->storage->txn_rollback;
512
510
513
1;
511
1;
514
- 

Return to bug 17637