implement RFID::Serial->scan and test it

[Biblio-RFID.git] / t / 20-CPR-M02.t

diff --git a/t/20-CPR-M02.t b/t/20-CPR-M02.t
index 54c4a5d..fe4663d 100755 (executable)
--- a/t/20-CPR-M02.t
+++ b/t/20-CPR-M02.t
@@ -15,3 +15,6 @@ ok( my @tags = $o->inventory, 'inventory' );
 
 ok( my $blocks = $o->read_blocks( $_ ), "read_blocks $_" ) foreach @tags;
 
+ok( my $visible = $o->scan, 'scan' );
+diag dump $visible;
+