use first argument to test as filter

diff --git a/t/50-Readers.t b/t/50-Readers.t
index 38a5971..175dcc4 100755 (executable)
--- a/t/50-Readers.t
+++ b/t/50-Readers.t
@@ -9,7 +9,7 @@ BEGIN {
        use_ok( 'RFID::Biblio::Readers' );
 }
 
-ok( my $o = RFID::Biblio::Readers->new, 'new' );
+ok( my $o = RFID::Biblio::Readers->new( shift @ARGV ), 'new' );
 
 ok( my @tags = $o->inventory, 'inventory' );
 diag dump @tags;