t/06-SmartX.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::SmartX' );
  10 }
  11
  12 my $tags =
  13 [ [
  14         "\xde\xad\xbe\xbe\xfc\x38\x02\x00\x00\x00\x00\x00\x21\x07\x44\x00",
  15         "\x00\x01\x1d\x58\x1e\x58\x1f\x58\x29\x58\x00\x00\x00\x00\x00\x00",
  16         "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00",
  17         undef,
  18         "\x99\x88\x77\x66\x55\x44\x33\x22\x11\x00\x00\x12\x22\x22\x22\x21",
  19         "\x32\x30\x31\x33\x34\x35\x36\x31\x91\x11\x11\x11\x11\x90\x6d\x00",
  20         "\x33\x33\x33\x00\x00\x00\x00\x06\x00\x30\x32\x53\x52\x43\x45\x04",
  21 ],[
  22         "\x01\x02\x03\x04\xdc\x38\x02\x00\x00\x00\x00\x00\x21\x07\x44\x00",
  23         "\x00\x01\x1d\x58\x1e\x58\x1f\x58\x29\x58\x00\x00\x00\x00\x00\x00",
  24         "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00",
  25         undef,
  26         "\x00\x11\x22\x33\x44\x55\x66\x77\x88\x99\x00\x21\x11\x11\x11\x12",
  27         "\x32\x30\x31\x34\x31\x30\x30\x31\x81\x11\x11\x11\x11\x80\x66\x00",
  28         "\x32\x32\x32\x00\x00\x00\x00\x05\x00\x30\x32\x53\x52\x43\x45\x04",
  29 ] ];
  30
  31 foreach my $tag ( @$tags ) {
  32
  33         ok( $hash = Biblio::RFID::SmartX->to_hash( $tag ), 'to_hash' );
  34         diag dump $hash;
  35
  36 }
  37