4 use Data::Dump qw(dump);
9 use_ok( 'RFID::Biblio::Reader::librfid' );
12 ok( my $o = RFID::Biblio::Reader::librfid->new( tool => '/rest/cvs/librfid/utils/librfid-tool' ), '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' );