[open-ils-commits] r15051 - trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test (djfiander)

[svn at svn.open-ils.org]

Author: djfiander
Date: 2009-12-01 20:23:16 -0500 (Tue, 01 Dec 2009)
New Revision: 15051

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t
Log:
Add test to confirm that holdings fields are defined for each
caption in each test stanza.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t	2009-12-01 18:27:46 UTC (rev 15050)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t	2009-12-02 01:23:16 UTC (rev 15051)
@@ -92,7 +92,8 @@
         ($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"