projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Note successes in record.
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy
/
Test
/
Search
/
Title.pm
diff --git
a/lib/ZOOM/IRSpy/Test/Search/Title.pm
b/lib/ZOOM/IRSpy/Test/Search/Title.pm
index
122b170
..
019d098
100644
(file)
--- a/
lib/ZOOM/IRSpy/Test/Search/Title.pm
+++ b/
lib/ZOOM/IRSpy/Test/Search/Title.pm
@@
-1,4
+1,4
@@
-# $Id: Title.pm,v 1.2 2006-07-11 14:16:35 mike Exp $
+# $Id: Title.pm,v 1.3 2006-07-24 17:02:51 mike Exp $
# See the "Main" test package for documentation
# See the "Main" test package for documentation
@@
-21,6
+21,7
@@
sub run {
$pod->callback(ZOOM::Event::RECV_SEARCH, \&found);
$pod->search_pqf('@attr 1=4 computer');
my $err = $pod->wait($irspy);
$pod->callback(ZOOM::Event::RECV_SEARCH, \&found);
$pod->search_pqf('@attr 1=4 computer');
my $err = $pod->wait($irspy);
+ ### Should notice failure and log it.
return 0;
}
return 0;
}
@@
-33,7
+34,8
@@
sub found {
my $n = $rs->size();
$irspy->log("irspy_test", $conn->option("host"),
" title search found $n record", $n==1 ? "" : "s");
my $n = $rs->size();
$irspy->log("irspy_test", $conn->option("host"),
" title search found $n record", $n==1 ? "" : "s");
- ### We should note the success or failure of the search in $rec
+ $rec->append_entry("irspy:status", "<irspy:search_title ok='1'>" .
+ $irspy->isodate(time()) . "</irspy:search_title>");
return 0;
}
return 0;
}