-# $Id: Bib1.pm,v 1.1 2006-09-26 13:12:28 sondberg Exp $
+# $Id: Bib1.pm,v 1.3 2006-10-02 07:40:53 sondberg Exp $
# See the "Main" test package for documentation
use Data::Dumper;
use ZOOM::IRSpy::Test;
-our @ISA = @ISA = qw(ZOOM::IRSpy::Test);
+our @ISA = qw(ZOOM::IRSpy::Test);
our @Bib1_Attr = qw(1 2 3 4 5 6 7 8 9);
foreach my $attr (@Bib1_Attr) {
$pod->search_pqf('@attr 1=' . $attr . ' water' );
+ $irspy->{'handle'}->{'attr'} = $attr;
my $err = $pod->wait({'irspy' => $irspy, 'attr' => $attr});
}