From 1781913ce459409ac46dc620b9da57361fd945d8 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 3 Nov 2006 13:37:33 +0000 Subject: [PATCH] return TEST_SKIPPED if search finds no records. --- lib/ZOOM/IRSpy/Test/Record/Fetch.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm index 347c054..a2f2369 100644 --- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm +++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm @@ -1,4 +1,4 @@ -# $Id: Fetch.pm,v 1.13 2006-11-02 15:02:09 mike Exp $ +# $Id: Fetch.pm,v 1.14 2006-11-03 13:37:33 mike Exp $ # See the "Main" test package for documentation @@ -30,6 +30,8 @@ sub completed_search { my $n = $task->{rs}->size(); $conn->log("irspy_test", "Fetch test search found $n records"); + return ZOOM::IRSpy::Status::TEST_SKIPPED if $n == 0; + my @syntax = ( 'canmarc', 'danmarc', -- 1.7.10.4