From 6fb5740c8cd7c4f9d989df57ff25b4b31e293ddb Mon Sep 17 00:00:00 2001 From: djfiander Date: Wed, 2 Dec 2009 01:23:16 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Utils/MFHD/test/mfhd.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 2d5ebe63b..e414f9ee4 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" -- 2.11.0