From 65e2cda8d2dcb89c0af6b6bcf07118e05b0123e8 Mon Sep 17 00:00:00 2001
From: Zach Sim <joseph.zachariah.sim@gmail.com>
Date: Wed, 19 Jan 2011 10:52:23 +1300
Subject: [PATCH] Added unit tests for Biblio and moved it to db_dependent as
 it requires the database.

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 t/Biblio.t              | 14 --------------
 t/db_dependent/Biblio.t | 39 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+), 14 deletions(-)
 delete mode 100755 t/Biblio.t
 create mode 100755 t/db_dependent/Biblio.t

diff --git a/t/Biblio.t b/t/Biblio.t
deleted file mode 100755
index c18605869a..0000000000
--- a/t/Biblio.t
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl
-#
-# This Koha test module is a stub!  
-# Add more tests here!!!
-
-use strict;
-use warnings;
-
-use Test::More tests => 1;
-
-BEGIN {
-        use_ok('C4::Biblio');
-}
-
diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t
new file mode 100755
index 0000000000..6012f5f80d
--- /dev/null
+++ b/t/db_dependent/Biblio.t
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+#
+# This Koha test module is a stub!  
+# Add more tests here!!!
+
+use strict;
+use warnings;
+use Test::More tests => 6;
+use MARC::Record;
+use C4::Biblio;
+
+BEGIN {
+	use_ok('C4::Biblio');
+}
+
+my $isbn = '0590353403';
+my $title = 'Foundation';
+
+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 $data = &GetBiblioData($biblionumber);
+is($data->{Title},undef,'Makes sure title field in biblio is empty.');
+
+$field = MARC::Field->new('245','','','a' => $title);
+$marc_record->append_fields($field);
+ModBiblio($marc_record,$biblionumber,'');
+$data = &GetBiblioData($biblionumber);
+is($data->{title},$title,'uses ModBiblio to add a title to the previously created record and checks that its there.');
+is($data->{isbn},$isbn,'Makes sure the isbn is still there after using ModBiblio.');
+
+my $itemdata = &GetBiblioItemData($biblioitemnumber);
+is($itemdata->{title},$title,'First test of GetBiblioItemData to get same result of previous two GetBiblioData tests.');
+is($itemdata->{isbn},$isbn,'Second test checking it returns the correct isbn.');
+
+
+# clean up after ourselves
+DelBiblio($biblionumber);
-- 
2.39.2