3 use Test::More tests => 3;
4 use Data::Dump qw(dump);
9 use_ok( 'RFID::Serial::Decode::RFID501' );
12 ok( my $hash = RFID::Serial::Decode::RFID501->to_hash( "\x04\x11\x00\x00200912310123\x00\x00\x00\x00" ), 'decode_tag' );
15 ok( $hash = RFID::Serial::Decode::RFID501->to_hash( "\x04\x11\x00\x011301234567\x00\x00\x00\x00\x00\x00" ), 'decode_tag' );
29 ok( $hash = RFID::Serial::Decode::RFID501->to_hash( $tag ), 'decode_tag' );