t/05-RFID501.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( 'RFID::Serial::Decode::RFID501' );
  10 }
  11
  12 ok( my $hash = RFID::Serial::Decode::RFID501->to_hash( "\x04\x11\x00\x00200912310123\x00\x00\x00\x00" ), 'decode_tag' );
  13 diag dump $hash;
  14
  15 ok( $hash = RFID::Serial::Decode::RFID501->to_hash( "\x04\x11\x00\x011301234567\x00\x00\x00\x00\x00\x00" ), 'decode_tag' );
  16 diag dump $hash;
  17
  18 my $tag = [
  19         "\4\21\0\0",
  20         2009,
  21         "0101",
  22         "0123",
  23         "\0\0\0\0",
  24         "\xFF\xFF\xFF\xFF",
  25         "\x7F\xFF\xFF\xFF",
  26         "\0\0\0\0",
  27 ];
  28
  29 ok( $hash = RFID::Serial::Decode::RFID501->to_hash( $tag ), 'decode_tag' );
  30 diag dump $hash;
  31