t/50-Readers.t

   1 #!/usr/bin/perl
   2
   3 use Test::More; # tests => 3;
   4 use Data::Dump qw(dump);
   5
   6 use lib 'lib';
   7
   8 BEGIN {
   9         use_ok( 'Biblio::RFID::Reader' );
  10 }
  11
  12 ok( my $o = Biblio::RFID::Reader->new( shift @ARGV ), 'new' );
  13
  14 ok( my $tags = [ $o->tags ], 'tags' );
  15 diag 'tags: ', dump( $tags );
  16
  17 done_testing();
  18
  19 __END__
  20
  21 ok( my @tags = $o->inventory, 'inventory' );
  22 diag dump @tags;
  23
  24 my $old_afi;
  25
  26 foreach my $tag ( @tags ) {
  27
  28         ok( my $blocks = $o->read_blocks( $tag ), "read_blocks $tag" );
  29
  30         ok( my $afi = $o->read_afi( $tag ), "read_afi $tag" );
  31
  32         ok( $o->write_blocks( $tag, $blocks->{$tag} ), "write_blocks $tag" );
  33
  34         my $new_afi = "\x42";
  35
  36         ok( $o->write_afi( $tag, $new_afi ), sprintf( "write_afi %s %x", $tag, $new_afi ) );
  37
  38         cmp_ok( $o->read_afi( $tag ), 'eq', $new_afi, 'AFI check' );
  39
  40         ok( $o->write_afi( $tag, $afi ), sprintf( "write_afi %s %x", $tag, $afi ) );
  41
  42 }
  43
  44 ok( my $visible = $o->scan, 'scan' );
  45 diag dump $visible;
  46
  47 done_testing();