program only tag requested on command-line

[Biblio-RFID.git] / t / 50-Readers.t

diff --git a/t/50-Readers.t b/t/50-Readers.t
index 175dcc4..469af16 100755 (executable)
--- a/t/50-Readers.t
+++ b/t/50-Readers.t
@@ -6,10 +6,17 @@ use Data::Dump qw(dump);
 use lib 'lib';
 
 BEGIN {
-       use_ok( 'RFID::Biblio::Readers' );
+       use_ok( 'Biblio::RFID::Reader' );
 }
 
-ok( my $o = RFID::Biblio::Readers->new( shift @ARGV ), 'new' );
+ok( my $o = Biblio::RFID::Reader->new( shift @ARGV ), 'new' );
+
+ok( my $tags = [ $o->tags ], 'tags' );
+diag 'tags: ', dump( $tags );
+
+done_testing();
+
+__END__
 
 ok( my @tags = $o->inventory, 'inventory' );
 diag dump @tags;