X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2Fdb_dependent%2FXISBN.t;h=a3c5c6da4f676642d91368ed4270f3b359d8ef28;hb=9c06057f21f1cdbc0a87ecbbdf84306e51e3d6a0;hp=8f5c8bdff1fb5cc5fb3f7dceac151eee8a3a6fce;hpb=6c0b51460ea812c27f75058ba33c5e99d1a8e9e3;p=koha_fer

diff --git a/t/db_dependent/XISBN.t b/t/db_dependent/XISBN.t
index 8f5c8bdff1..a3c5c6da4f 100755
--- a/t/db_dependent/XISBN.t
+++ b/t/db_dependent/XISBN.t
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::Class::Load qw ( t/db_dependent/ );
+# use Test::Class::Load qw ( t/db_dependent/ );
 use Test::More tests => 4;
 use MARC::Record;
 use C4::Biblio;
@@ -17,8 +17,8 @@ BEGIN {
 	use_ok('C4::XISBN');
 }
 
-KohaTest::clear_test_database();
-KohaTest::create_test_database();
+# KohaTest::clear_test_database();
+# KohaTest::create_test_database();
 
 my $isbn = '0590353403';
 my $isbn2 = '0747554560';
@@ -31,18 +31,21 @@ 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($biblionumber2,$biblioitemnumber2) = 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.");
+is($trial->[0]->{biblionumber},$biblionumber,"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.");
+is($trial->{biblionumber},$biblionumber,"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.");
+is($var->[0]->{biblionumber},$biblionumber2,"Gets correct biblionumber from a book with a similar isbn.");
+
+# clean up after ourselves
+DelBiblio($biblionumber);
+DelBiblio($biblionumber2);
\ No newline at end of file