+our @ISA = qw(ZOOM::IRSpy::Test);
+
+
+sub start {
+ my $class = shift();
+ my($conn) = @_;
+ my @attrs = ( 1..63, 1000..1036, # Bib-1
+ 1037..1096, 1185..1209, # Extended Bib-1
+ 1097..1111, # Dublin-Core
+ 1112..1184 # GILS
+ );
+
+ foreach my $attr (@attrs) {
+ $conn->irspy_search_pqf("\@attr 1=$attr mineral",
+ {'attr' => $attr},
+ ZOOM::Event::RECV_SEARCH, \&found,
+ exception => \&error);
+ }
+}