3 # $Id: find-different-access-point.pl,v 1.1 2006-10-17 15:25:51 mike Exp $
6 # find-different-access-point.pl fish bagel:210/gils bagel:210/marc
7 # This is not an IRSpy program: it's a ZOOM-Perl program, which is
8 # used to find a BIB-1 attribute that is supported differently by two
9 # or more targets. Using the output of this, it's possible to create
10 # an IRSpy test plugin that passes one server and fails another.
17 print STDERR "Usage $0 <PQF> <target1> <target2> [<target3> ...]";
21 my $query = shift(@ARGV);
22 my @conns = map { new ZOOM::Connection($_) } @ARGV;
26 for (my $i = 1; $i < 9999; $i++) {
30 foreach my $conn (@conns) {
32 eval { $rs = $conn->search_pqf("\@attr 1=$i $query") };
34 print "\t", $ok ? "ok(" . $rs->size(). ")" : "FAIL($@)";
35 if (!defined $sofar) {
37 } elsif ($ok != $sofar) {