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