X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2Fdb_dependent%2FBiblio.t;h=ab8c2f6d438fe8f201b1596fe600bad8025cb95b;hb=bb5d95749bd597953fad17ba4cc3f5262d538ff2;hp=67cba63c4fedbc41250ca9a188aed4ca5289fb7c;hpb=d8b15c685c74c8eb18021bb3c7d4c4ecba609569;p=koha-ffzg.git

diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t
index 67cba63c4f..ab8c2f6d43 100755
--- a/t/db_dependent/Biblio.t
+++ b/t/db_dependent/Biblio.t
@@ -17,7 +17,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 15;
+use Test::More tests => 16;
 use Test::MockModule;
 use Test::Warn;
 use List::MoreUtils qw( uniq );
@@ -852,6 +852,21 @@ subtest 'autoControlNumber tests' => sub {
 
 };
 
+subtest 'record test' => sub {
+    plan tests => 1;
+
+    my $marc_record = MARC::Record->new;
+    $marc_record->append_fields( create_isbn_field( '0590353403', 'MARC21' ) );
+
+    my ($biblionumber) = C4::Biblio::AddBiblio( $marc_record, '' );
+
+    my $biblio = Koha::Biblios->find($biblionumber);
+
+    is( $biblio->record->as_formatted,
+        $biblio->metadata->record->as_formatted );
+};
+
+
 
 # Cleanup
 Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );