|
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 |
- |
|
|