projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
293ed97
)
@bath_queries includes all six attributes for each query type.
author
Mike Taylor
<mike@miketaylor.org.uk>
Thu, 10 Jun 2010 16:18:09 +0000
(17:18 +0100)
committer
Mike Taylor
<mike@miketaylor.org.uk>
Thu, 10 Jun 2010 16:18:09 +0000
(17:18 +0100)
These are now all used in generating the queries.
lib/ZOOM/IRSpy/Test/Search/Bath.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy/Test/Search/Bath.pm
b/lib/ZOOM/IRSpy/Test/Search/Bath.pm
index
4dcd797
..
b74e082
100644
(file)
--- a/
lib/ZOOM/IRSpy/Test/Search/Bath.pm
+++ b/
lib/ZOOM/IRSpy/Test/Search/Bath.pm
@@
-34,10
+34,11
@@
use ZOOM::IRSpy::Utils qw(isodate);
my @bath_queries = (
my @bath_queries = (
- [ author => 1003 ], # 5.A.0.1
- [ title => 4 ], # 5.A.0.2
- [ subject => 21 ], # 5.A.0.3
- [ any => 1016 ], # 5.A.0.4
+ # Name => use, rel, pos, str, tru, com
+ [ author => 1003, 3, 3, 2, 100, 1 ], # 5.A.0.1
+ [ title => 4, 3, 3, 2, 100, 1 ], # 5.A.0.2
+ [ subject => 21, 3, 3, 2, 100, 1 ], # 5.A.0.3
+ [ any => 1016, 3, 3, 2, 100, 1 ], # 5.A.0.4
);
);
@@
-56,9
+57,9
@@
sub start_search {
if $qindex >= @bath_queries;
my $ref = $bath_queries[$qindex];
if $qindex >= @bath_queries;
my $ref = $bath_queries[$qindex];
- my($name, $use_attr) = @$ref;
+ my($name, @attrs) = @$ref;
- my $query = "\@attr 1=$use_attr \@attr 2=3 \@attr 3=3 \@attr 4=2 \@attr 5=100 \@attr 6=1 the";
+ my $query = join(" ", map { "\@attr $_=" . $attrs[$_-1] } (1..6)) . " the";
$conn->irspy_search_pqf($query, { qindex => $qindex }, {},
ZOOM::Event::ZEND, \&search_complete,
"exception", \&search_complete);
$conn->irspy_search_pqf($query, { qindex => $qindex }, {},
ZOOM::Event::ZEND, \&search_complete,
"exception", \&search_complete);