Attachment #62960 for bug #18226

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

Lines 31-37 use t::lib::Mocks; Link Here

(-)a/t/00-load.t (-1 / +1 lines)
31		31
32	=cut	32	=cut
33		33
34	my $context_module = t::lib::Mocks::mock_dbh;	34	use Test::DBIx::Class;
35		35
36	# Loop through the C4:: modules	36	# Loop through the C4:: modules
37	my $lib = File::Spec->rel2abs('C4');	37	my $lib = File::Spec->rel2abs('C4');




#!/usr/bin/perl

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 1;
use t::lib::Mocks;

BEGIN {
    # Mock the DB connexion and C4::Context
    my $context = t::lib::Mocks::mock_dbh;
    use_ok('C4::Breeding');
}


Lines 9-15 use Koha::Schema; Link Here

(-)a/t/Members/cardnumber.t (-1 / +1 lines)
9	use_ok('C4::Members');	9	use_ok('C4::Members');
10		10
11	BEGIN {	11	BEGIN {
12	t::lib::Mocks::mock_dbh;	12	use Test::DBIx::Class;
13	}	13	}
14		14
15	my $dbh = C4::Context->dbh;	15	my $dbh = C4::Context->dbh;




#!/usr/bin/perl

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 1;
use t::lib::Mocks;

BEGIN {
    # Mock the DB connexion and C4::Context
    my $context = t::lib::Mocks::mock_dbh;
    use_ok('C4::Message');
}

1;




#!/usr/bin/perl

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 1;
use t::lib::Mocks;

BEGIN {
    # Mock the DB connexion and C4::Context
    my $context = t::lib::Mocks::mock_dbh;
    use_ok('C4::Overdues');
}

1;

Lines 22-28 use Test::Warn; Link Here

(-)a/t/Patron.t (-1 / +1 lines)
22	use t::lib::Mocks;	22	use t::lib::Mocks;
23		23
24	BEGIN {	24	BEGIN {
25	t::lib::Mocks::mock_dbh;	25	use Test::DBIx::Class;
26	use_ok('Koha::Object');	26	use_ok('Koha::Object');
27	use_ok('Koha::Patron');	27	use_ok('Koha::Patron');
28	}	28	}




#!/usr/bin/perl

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 1;
use t::lib::Mocks;

BEGIN {
    # Mock the DB connexion and C4::Context
    my $context = t::lib::Mocks::mock_dbh;
    use_ok('C4::RotatingCollections');
}

1;

Lines 21-27 use Test::More tests => 3; Link Here

(-)a/t/Search.t (-1 / +1 lines)
21	use t::lib::Mocks;	21	use t::lib::Mocks;
22		22
23	# Mock the DB connexion and C4::Context	23	# Mock the DB connexion and C4::Context
24	my $context = t::lib::Mocks::mock_dbh;	24	use Test::DBIx::Class;
25		25
26	use_ok('C4::Search');	26	use_ok('C4::Search');
27	can_ok('C4::Search',	27	can_ok('C4::Search',

Lines 29-35 use Test::MockModule; Link Here

(-)a/t/SuggestionEngine_AuthorityFile.t (-1 / +1 lines)
29	use t::lib::Mocks;	29	use t::lib::Mocks;
30		30
31	# Mock the DB connexion and C4::Context	31	# Mock the DB connexion and C4::Context
32	my $context = t::lib::Mocks::mock_dbh;	32	use Test::DBIx::Class;
33		33
34	use_ok('Koha::SuggestionEngine');	34	use_ok('Koha::SuggestionEngine');
35		35

Lines 67-73 foreach (sort @keys) { Link Here

(-)a/t/db_dependent/Context.t (-2 / +1 lines)
67	ok($config = $koha->{config}, 'Getting $koha->{config} ');	67	ok($config = $koha->{config}, 'Getting $koha->{config} ');
68		68
69	# Testing syspref caching	69	# Testing syspref caching
70	t::lib::Mocks::mock_dbh;	70	use Test::DBIx::Class;
71		71
72	my $history;	72	my $history;
73		73
74	-

Return to bug 18226

Lines 1-28 Link Here

(-)a/t/Breeding.t (-28 lines)
1	#!/usr/bin/perl
2
3	# This file is part of Koha.
4	#
5	# Koha is free software; you can redistribute it and/or modify it
6	# under the terms of the GNU General Public License as published by
7	# the Free Software Foundation; either version 3 of the License, or
8	# (at your option) any later version.
9	#
10	# Koha is distributed in the hope that it will be useful, but
11	# WITHOUT ANY WARRANTY; without even the implied warranty of
12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	# GNU General Public License for more details.
14	#
15	# You should have received a copy of the GNU General Public License
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18	use Modern::Perl;
19
20	use Test::More tests => 1;
21	use t::lib::Mocks;
22
23	BEGIN {
24	# Mock the DB connexion and C4::Context
25	my $context = t::lib::Mocks::mock_dbh;
26	use_ok('C4::Breeding');
27	}
28

Lines 1-29 Link Here

(-)a/t/Message.t (-29 lines)
1	#!/usr/bin/perl
2
3	# This file is part of Koha.
4	#
5	# Koha is free software; you can redistribute it and/or modify it
6	# under the terms of the GNU General Public License as published by
7	# the Free Software Foundation; either version 3 of the License, or
8	# (at your option) any later version.
9	#
10	# Koha is distributed in the hope that it will be useful, but
11	# WITHOUT ANY WARRANTY; without even the implied warranty of
12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	# GNU General Public License for more details.
14	#
15	# You should have received a copy of the GNU General Public License
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18	use Modern::Perl;
19
20	use Test::More tests => 1;
21	use t::lib::Mocks;
22
23	BEGIN {
24	# Mock the DB connexion and C4::Context
25	my $context = t::lib::Mocks::mock_dbh;
26	use_ok('C4::Message');
27	}
28
29	1;

Lines 1-29 Link Here

(-)a/t/Overdues.t (-29 lines)
1	#!/usr/bin/perl
2
3	# This file is part of Koha.
4	#
5	# Koha is free software; you can redistribute it and/or modify it
6	# under the terms of the GNU General Public License as published by
7	# the Free Software Foundation; either version 3 of the License, or
8	# (at your option) any later version.
9	#
10	# Koha is distributed in the hope that it will be useful, but
11	# WITHOUT ANY WARRANTY; without even the implied warranty of
12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	# GNU General Public License for more details.
14	#
15	# You should have received a copy of the GNU General Public License
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18	use Modern::Perl;
19
20	use Test::More tests => 1;
21	use t::lib::Mocks;
22
23	BEGIN {
24	# Mock the DB connexion and C4::Context
25	my $context = t::lib::Mocks::mock_dbh;
26	use_ok('C4::Overdues');
27	}
28
29	1;

Lines 1-29 Link Here

(-)a/t/RotatingCollections.t (-29 lines)
1	#!/usr/bin/perl
2
3	# This file is part of Koha.
4	#
5	# Koha is free software; you can redistribute it and/or modify it
6	# under the terms of the GNU General Public License as published by
7	# the Free Software Foundation; either version 3 of the License, or
8	# (at your option) any later version.
9	#
10	# Koha is distributed in the hope that it will be useful, but
11	# WITHOUT ANY WARRANTY; without even the implied warranty of
12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	# GNU General Public License for more details.
14	#
15	# You should have received a copy of the GNU General Public License
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18	use Modern::Perl;
19
20	use Test::More tests => 1;
21	use t::lib::Mocks;
22
23	BEGIN {
24	# Mock the DB connexion and C4::Context
25	my $context = t::lib::Mocks::mock_dbh;
26	use_ok('C4::RotatingCollections');
27	}
28
29	1;