X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;fp=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;h=f12d137863c7548b2e855ac2ab48f5442499757c;hp=5e62a969523073a43a4262f3875fc2ebd58e1c87;hb=08f7276dbdd4b6d3f02cfa3f4b4d06f0af331055;hpb=fc4e7fcfcd28822a2a73e61e2724b0d87bf2b1d6

diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index 5e62a96..f12d137 100644
--- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
+++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
@@ -121,13 +121,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;
+	    }
 	}
     }