From: Mike Taylor <mike@indexdata.com>
Date: Thu, 8 Mar 2007 14:51:01 +0000 (+0000)
Subject: More robustness against $rs->record() failure.
X-Git-Tag: CPAN-v1.02~54^2~489
X-Git-Url: http://jsfdemo.indexdata.com/cgi-bin?a=commitdiff_plain;h=cc5b8a4f7d904cdd5f78e3b039f778757aebefb6;p=irspy-moved-to-github.git

More robustness against $rs->record() failure.
---

diff --git a/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm b/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm
index 8bc7625..61596ae 100644
--- a/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm
+++ b/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm
@@ -1,4 +1,4 @@
-# $Id: Named.pm,v 1.3 2007-03-05 12:53:57 mike Exp $
+# $Id: Named.pm,v 1.4 2007-03-08 14:51:01 mike Exp $
 
 # See the "Main" test package for documentation
 
@@ -65,7 +65,12 @@ sub completed_search_b {
 
     if ($test_args->{'hits_a'} > 0) {
         my $hits = $rs->size();
-        my $record = $rs->record(0)->raw();
+	my $rsrec = $rs->record(0);
+	if (!defined $rsrec) {
+	    eval { $conn->check() };
+	    return error($conn, $task, $test_args, $@);
+	}
+        my $record = $rsrec->raw(); 
 
         if ($hits != $test_args->{'hits_a'}) {
             $conn->log('irspy_test', 'Named result set not supported: ',