Related to IR-365 ("Investigate, possibly remove "skipped records" in IRSpy toroid")

[irspy-moved-to-github.git] / lib / ZOOM / IRSpy / Test / Record / Fetch.pm

diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index 93df7d8..c8a8fbd 100644 (file)
--- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
+++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
@@ -17,6 +17,7 @@ my @queries = (
               "\@attr 1=4 computer",
               "\@attr 1=44 mineral", # Smithsonian doesn't support AP 4!
               "\@attr 1=1016 water", # Connector Framework only does 1016
+              "\@attr 1=1016 \@attr 2=103 x", # Find all records
               ### We can add more queries here
               );
 
@@ -46,8 +47,8 @@ my @syntax = (
               'ukmarc',
               'unimarc',
               'sutrs',
-              'grs-1',
               'xml',
+              'grs-1',
               'summary',
               'opac',
            );
@@ -121,13 +122,18 @@ sub record {
                   defined $record ? $record->exception() :
                                     $conn->exception());
     } else {
-       $ok = 1;
-       my $text = $record->render();
-       $conn->log("irspy_test", "Successfully retrieved a $syn record");
-       if (0) {
-           print STDERR "Hits: ", $rs->size(), "\n";
-           print STDERR "Syntax: ", $syn, "\n";
-           print STDERR $text;
+       my $actual = $record->get("syntax");
+       if (lc($actual) ne lc($syn)) {
+           $conn->log("irspy_test", "requested $syn record, but got $actual");
+       } else {
+           $ok = 1;
+           my $text = $record->render();
+           $conn->log("irspy_test", "Successfully retrieved a $syn record ($actual)");
+           if (0) {
+               print STDERR "Hits: ", $rs->size(), "\n";
+               print STDERR "Syntax: ", $syn, "\n";
+               print STDERR $text;
+           }
        }
     }