View | Details | Raw Unified | Return to bug 18539
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', '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/Serials/ReNewSubscription.t (-3 / +2 lines)
Lines 85-93 my $subscriptionhistory = $builder->build({ Link Here
85
85
86
# Renew the subscription and check that enddate has not been set
86
# Renew the subscription and check that enddate has not been set
87
ReNewSubscription($subscription->{subscriptionid},'',"2016-01-01",'','',12,'');
87
ReNewSubscription($subscription->{subscriptionid},'',"2016-01-01",'','',12,'');
88
my @history = Koha::Subscription::Histories->find($subscription->{subscriptionid});
88
my $history = Koha::Subscription::Histories->find($subscription->{subscriptionid});
89
89
90
is ( $history[0]->histenddate(), undef, 'subscription history not empty after renewal');
90
is ( $history->histenddate(), undef, 'subscription history not empty after renewal');
91
91
92
# End of tests
92
# End of tests
93
93
94
- 

Return to bug 18539