4 use Data::Dump qw(dump);
9 use_ok( 'Biblio::RFID::Reader::librfid' );
12 ok( my $o = Biblio::RFID::Reader::librfid->new(), 'new' );
14 my @tags = $o->inventory;
15 diag 'inventory = ', dump @tags;
19 foreach my $tag ( @tags ) {
21 ok( my $blocks = $o->read_blocks( $tag ), "read_blocks $tag" );
23 ok( my $afi = $o->read_afi( $tag ), "read_afi $tag" );
25 cmp_ok( $afi, '==', -1, 'afi' );