Attachment 72538 Details for Bug 20097 – Bug 20097: Follow-up with a unit test

[patch] Bug 20097: Follow-up with a unit test

Bug-20097-Follow-up-with-a-unit-test.patch (text/plain), 1.74 KB, created by Josef Moravec on 2018-03-08 13:04:53 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Josef Moravec

Created: 2018-03-08 13:04:53 UTC

Size: 1.74 KB

patch

obsolete

>From 9cfbb560e30ba487bcc7d9c331a524506b1e6b11 Mon Sep 17 00:00:00 2001
>From: Mark Tompsett <mtompset@hotmail.com>
>Date: Thu, 8 Mar 2018 03:03:46 +0000
>Subject: [PATCH] Bug 20097: Follow-up with a unit test
>
>kshell
>prove -v t/db_dependent/Record.t
>
>Signed-off-by: Mark Tompsett <mtompset@hotmail.com>
>
>Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
>---
> t/db_dependent/Record.t | 16 +++++++++++++---
> 1 file changed, 13 insertions(+), 3 deletions(-)
>
>diff --git a/t/db_dependent/Record.t b/t/db_dependent/Record.t
>index 62c1564..2d839f3 100755
>--- a/t/db_dependent/Record.t
>+++ b/t/db_dependent/Record.t
>@@ -2,7 +2,7 @@
> 
> use Modern::Perl;
> 
>-use Test::More tests => 13;
>+use Test::More tests => 14;
> use MARC::Record;
> 
> use t::lib::Mocks;
>@@ -71,14 +71,24 @@ my $test3xml=qq(<?xml version="1.0" encoding="UTF-8"?>
> is ($marcoaidc, $test3xml, "testing OAIDC Metadata");
> 
> my $marcrdfdc=marc2dcxml( $marc, undef, undef, "rdfdc" );
>-my $test4xml=qq(<?xml version="1.0" encoding="UTF-8"?>
>+my $test4Axml=qq(<?xml version="1.0" encoding="UTF-8"?>
> <rdf:Description xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/">
>   <dc:type/>
>   <dc:language/>
> </rdf:Description>
> );
> 
>-is ($marcrdfdc, $test4xml, "testing OAIDC Metadata");
>+is ($marcrdfdc, $test4Axml, "testing RDFDC Metadata");
>+
>+my $marcdc=marc2dcxml( $marc, undef, undef, "dc" );
>+my $test4Bxml=qq(<?xml version="1.0" encoding="UTF-8"?>
>+<rdf:Description xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/">
>+  <dc:type/>
>+  <dc:language/>
>+</rdf:Description>
>+);
>+
>+is ($marcrdfdc, $test4Bxml, "testing DC Metadata");
> 
> my $mods=marc2modsxml($marc);
> my $test5xml=qq(<?xml version="1.0" encoding="UTF-8"?>
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 20097: 71018 | 72528 | 72529 | 72530 | 72537 | 72538