Attachment 46649 Details for Bug 15578 – Bug 15578: Insert authority records before processing tests

[patch] Bug 15578: Insert authority records before processing tests

Bug-15578-Insert-authority-records-before-processi.patch (text/plain), 3.16 KB, created by Jonathan Druart on 2016-01-14 12:29:41 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2016-01-14 12:29:41 UTC

Size: 3.16 KB

patch

obsolete

>From 472c734bc044028a70153ffa3849386a55da91ba Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
>Date: Thu, 14 Jan 2016 12:27:32 +0000
>Subject: [PATCH] Bug 15578: Insert authority records before processing tests
>
>---
> t/db_dependent/Koha_Authority.t | 52 ++++++++++++++++++++++++-----------------
> 1 file changed, 31 insertions(+), 21 deletions(-)
>
>diff --git a/t/db_dependent/Koha_Authority.t b/t/db_dependent/Koha_Authority.t
>index f4203b4..300b6a8 100755
>--- a/t/db_dependent/Koha_Authority.t
>+++ b/t/db_dependent/Koha_Authority.t
>@@ -17,18 +17,38 @@
> # You should have received a copy of the GNU General Public License
> # along with Koha; if not, see <http://www.gnu.org/licenses>.
> 
>-use strict;
>-use warnings;
>+use Modern::Perl;
> 
> use C4::Context;
>+use C4::Charset;
>+use C4::AuthoritiesMarc;
>+use Koha::Database;
> use Test::More;
>+use File::Basename;
>+use MARC::Batch;
>+use MARC::File;
>+use IO::File;
>+use Koha::Authorities;
> 
> BEGIN {
>-        use_ok('Koha::MetadataRecord::Authority');
>+    use_ok('Koha::MetadataRecord::Authority');
> }
> 
>-my $record = MARC::Record->new;
>+my $schema = Koha::Database->new->schema;
>+$schema->storage->txn_begin;
>+
>+# TODO Move this part to a t/lib packages
>+my $sourcedir = dirname(__FILE__) . "/data";
>+my $input_marc_file = "$sourcedir/marc21/zebraexport/authority/exported_records";
>+
>+my $fh = IO::File->new($input_marc_file);
>+my $batch = MARC::Batch->new( 'USMARC', $fh );
>+while ( my $record = $batch->next ) {
>+    C4::Charset::MarcToUTF8Record($record, 'MARC21');
>+    AddAuthority($record, '', '');
>+}
> 
>+my $record = MARC::Record->new;
> $record->add_fields(
>         [ '001', '1234' ],
>         [ '150', ' ', ' ', a => 'Cooking' ],
>@@ -42,28 +62,18 @@ is($authority->authorized_heading(), 'Cooking', 'Authorized heading was correct'
> 
> is_deeply($authority->record, $record, 'Saved record');
> 
>-SKIP:
>-{
>-    my $dbh = C4::Context->dbh;
>-    my $sth = $dbh->prepare("SELECT authid FROM auth_header LIMIT 1;");
>-    $sth->execute();
>+my $authid = Koha::Authorities->search->next->authid;
> 
>-    my $authid;
>-    for my $row ($sth->fetchrow_hashref) {
>-        $authid = $row->{'authid'};
>-    }
>-    skip 'No authorities', 3 unless $authid;
>-    $authority = Koha::MetadataRecord::Authority->get_from_authid($authid);
>+$authority = Koha::MetadataRecord::Authority->get_from_authid($authid);
> 
>-    is(ref($authority), 'Koha::MetadataRecord::Authority', 'Retrieved valid Koha::MetadataRecord::Authority object');
>+is(ref($authority), 'Koha::MetadataRecord::Authority', 'Retrieved valid Koha::MetadataRecord::Authority object');
> 
>-    is($authority->authid, $authid, 'Object authid is correct');
>+is($authority->authid, $authid, 'Object authid is correct');
> 
>-    is($authority->record->field('001')->data(), $authid, 'Retrieved correct record');
>+is($authority->record->field('001')->data(), $authid, 'Retrieved correct record');
> 
>-    $authority = Koha::MetadataRecord::Authority->get_from_authid('alphabetsoup');
>-    is($authority, undef, 'No invalid record is retrieved');
>-}
>+$authority = Koha::MetadataRecord::Authority->get_from_authid('alphabetsoup');
>+is($authority, undef, 'No invalid record is retrieved');
> 
> SKIP:
> {
>-- 
>2.1.0

Actions: View | Diff | Splinter Review

Attachments on bug 15578: 46649 | 46650 | 46675 | 46676 | 46711 | 46712 | 47638 | 47639 | 48156 | 48157