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

(-)a/t/db_dependent/XISBN.t (-11 / +8 lines)
Lines 5-25 Link Here
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
# use Test::Class::Load qw ( t/db_dependent/ );
9
use Test::More tests => 5;
8
use Test::More tests => 5;
10
use MARC::Record;
9
use MARC::Record;
11
use C4::Biblio;
10
use C4::Biblio;
12
use C4::XISBN;
11
use C4::XISBN;
13
use Data::Dumper;
14
use C4::Context;
12
use C4::Context;
13
use Test::MockModule;
15
14
16
BEGIN {
15
BEGIN {
17
    use_ok('C4::XISBN');
16
    use_ok('C4::XISBN');
18
}
17
}
19
18
20
# Avoid "redefined subroutine" warnings
19
my $dbh = C4::Context->dbh;
21
local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
20
$dbh->{RaiseError} = 1;
22
*C4::Search::SimpleSearch = \&Mock_SimpleSearch;
21
$dbh->{AutoCommit} = 0;
22
23
my $search_module = new Test::MockModule('C4::Search');
24
25
$search_module->mock('SimpleSearch', \&Mock_SimpleSearch );
23
26
24
my $context = C4::Context->new;
27
my $context = C4::Context->new;
25
28
Lines 62-72 is( $results_xisbn->[0]->{biblionumber}, Link Here
62
    $biblionumber3,
65
    $biblionumber3,
63
    "Gets correct biblionumber from a book with a similar isbn using XISBN." );
66
    "Gets correct biblionumber from a book with a similar isbn using XISBN." );
64
67
65
# clean up after ourselves
66
DelBiblio($biblionumber1);
67
DelBiblio($biblionumber2);
68
DelBiblio($biblionumber3);
69
70
# Util subs
68
# Util subs
71
69
72
# Add new biblio with isbn and return biblionumber
70
# Add new biblio with isbn and return biblionumber
73
- 

Return to bug 11439