X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F10-3M-810.t;h=b2bcc0e3af105e44004d624a0edb871ff899af3d;hb=100cc8f0b604e0f94cb448985f502b68265ede56;hp=c4d2101fcf5b918b5710980ff58e07529ce4dc39;hpb=bfa8abc01ab2d6bec39990edf1721e7db1fe852e;p=Biblio-RFID.git diff --git a/t/10-3M-810.t b/t/10-3M-810.t index c4d2101..b2bcc0e 100755 --- a/t/10-3M-810.t +++ b/t/10-3M-810.t @@ -6,13 +6,13 @@ use Data::Dump qw(dump); use lib 'lib'; BEGIN { - use_ok( 'RFID::Biblio::3M810' ); + use_ok( 'Biblio::RFID::Reader::3M810' ); } -ok( my $o = RFID::Biblio::3M810->new( device => '/dev/ttyUSB0' ), 'new' ); +ok( my $o = Biblio::RFID::Reader::3M810->new( device => '/dev/ttyUSB0' ), 'new' ); -ok( my @tags = $o->inventory, 'inventory' ); -diag dump @tags; +my @tags = $o->inventory; +diag 'inventory ',join(' ',@tags); my $old_afi; @@ -34,7 +34,4 @@ foreach my $tag ( @tags ) { } -ok( my $visible = $o->scan, 'scan' ); -diag dump $visible; - done_testing();