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 2d5ebe6..e414f9e 100644 (file)
--- 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"