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