From b09132bd100557e342647afc6488d703039e85f8 Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Wed, 25 Oct 2006 09:18:28 +0000 Subject: [PATCH] Implemented the fetch test module. --- lib/ZOOM/IRSpy/Test/Record/Fetch.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm index f6db6b5..f907e27 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.2 2006-10-25 08:40:53 sondberg Exp $ +# $Id: Fetch.pm,v 1.3 2006-10-25 09:18:28 sondberg Exp $ # See the "Main" test package for documentation @@ -55,6 +55,11 @@ sub start { sub record { my($conn, $task, $test_args, $event) = @_; my $syn = $test_args->{'syntax'}; + my $rs = $task->{rs}; + + if (1) { + print STDERR $rs->record(0)->render(); + } $conn->log("irspy_test", "Successfully retrieved a $syn record"); $conn->record()->store_result('record_fetch', -- 1.7.10.4