From: djfiander <djfiander@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 2 Dec 2009 01:23:16 +0000 (+0000)
Subject: Add test to confirm that holdings fields are defined for each
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=6fb5740c8cd7c4f9d989df57ff25b4b31e293ddb;p=contrib%2FConifer.git

Add test to confirm that holdings fields are defined for each
caption in each test stanza.


git-svn-id: svn://svn.open-ils.org/ILS/trunk@15051 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t
index 2d5ebe63b1..e414f9ee47 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t
@@ -92,7 +92,8 @@ while ($rec = load_MARC_rec) {
         ($htag = $cap->tag) =~ s/^85/86/;
         @holdings = $rec->holdings($htag, $cap->subfield('8'));
 
-        next unless scalar @holdings;
+        ok(scalar @holdings, "holdings defined " . $cap->subfield('8'));
+
         foreach my $field (@holdings) {
           TODO: {
                 local $TODO = "unimplemented"