|
Lines 5-11
Link Here
|
| 5 |
|
5 |
|
| 6 |
use Modern::Perl; |
6 |
use Modern::Perl; |
| 7 |
|
7 |
|
| 8 |
use Test::More tests => 5; |
8 |
use Test::More tests => 4; |
| 9 |
use MARC::Record; |
9 |
use MARC::Record; |
| 10 |
use C4::Biblio; |
10 |
use C4::Biblio; |
| 11 |
use C4::XISBN; |
11 |
use C4::XISBN; |
|
Lines 45-56
my $biblionumber1 = _add_biblio_with_isbn($isbn1);
Link Here
|
| 45 |
my $biblionumber2 = _add_biblio_with_isbn($isbn2); |
45 |
my $biblionumber2 = _add_biblio_with_isbn($isbn2); |
| 46 |
my $biblionumber3 = _add_biblio_with_isbn($isbn3); |
46 |
my $biblionumber3 = _add_biblio_with_isbn($isbn3); |
| 47 |
|
47 |
|
| 48 |
my $trial = C4::XISBN::get_biblionumber_from_isbn($isbn1); |
48 |
my $trial = C4::XISBN::_get_biblio_from_xisbn($isbn1); |
| 49 |
is( $trial->[0]->{biblionumber}, |
|
|
| 50 |
$biblionumber1, |
| 51 |
"It gets the correct biblionumber from the only isbn we have added." ); |
| 52 |
|
| 53 |
$trial = C4::XISBN::_get_biblio_from_xisbn($isbn1); |
| 54 |
is( $trial->{biblionumber}, |
49 |
is( $trial->{biblionumber}, |
| 55 |
$biblionumber1, "Gets biblionumber like the previous test." ); |
50 |
$biblionumber1, "Gets biblionumber like the previous test." ); |
| 56 |
|
51 |
|
| 57 |
- |
|
|