From 52762c6c798548536a57fb0a10b0b1590e75b925 Mon Sep 17 00:00:00 2001 From: Zach Sim Date: Tue, 18 Jan 2011 15:54:49 +1300 Subject: [PATCH] Added unit tests using a test database for XISBN. Signed-off-by: Chris Cormack --- t/db_dependent/XISBN.t | 40 +++++++++++++++++++++++++++++++++++++--- 1 file changed, 37 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/XISBN.t b/t/db_dependent/XISBN.t index 9e08efbca1..1c2d03775d 100755 --- a/t/db_dependent/XISBN.t +++ b/t/db_dependent/XISBN.t @@ -5,10 +5,44 @@ use strict; use warnings; - -use Test::More tests => 1; +use Test::Class::Load qw ( . ); +use Test::More tests => 4; +use MARC::Record; +use C4::Biblio; +use C4::XISBN; +use Data::Dumper; +use C4::Context; BEGIN { - use_ok('C4::XISBN'); + use_ok('C4::XISBN'); } +KohaTest::clear_test_database(); +KohaTest::create_test_database(); + +my $isbn = '0590353403'; +my $isbn2 = '0747554560'; + +my $marc_record=MARC::Record->new; +my $field = MARC::Field->new('020','','','a' => $isbn); +$marc_record->append_fields($field); +my($biblionumber,$biblioitemnumber) = AddBiblio($marc_record,''); + +my $marc_record=MARC::Record->new; +my $field = MARC::Field->new('020','','','a' => $isbn2); +$marc_record->append_fields($field); +my($biblionumber,$biblioitemnumber) = AddBiblio($marc_record,''); + + +my $trial = C4::XISBN::get_biblionumber_from_isbn($isbn); +is($trial->[0]->{biblionumber},1,"It gets the correct biblionumber from the only isbn we have added."); + +$trial = C4::XISBN::_get_biblio_from_xisbn($isbn); +is($trial->{biblionumber},1,"Gets biblionumber like the previous test."); + +# doesn't work yet; +my $context = C4::Context->new(); +$context->set_preference('ThingISBN','on'); +diag C4::Context::preference('ThingISBN'); +my $var = C4::XISBN::get_xisbns($isbn); +is($var->[0]->{biblionumber},2,"Gets correct biblionumber from a book with a similar isbn."); -- 2.39.2