X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=blobdiff_plain;f=t%2F05-RFID501.t;h=5df40fec534ff91f613ca2a2cca99d45bdea9f5d;hp=b4010d89c00c2a3e3841e01589366b3c14d04337;hb=85092c9643bc97fbacab4113f1de90311c00e37d;hpb=ce9d70e4bf2232ea3d444c1930cb6fd8be34096c

diff --git a/t/05-RFID501.t b/t/05-RFID501.t
index b4010d8..5df40fe 100755
--- a/t/05-RFID501.t
+++ b/t/05-RFID501.t
@@ -1,12 +1,12 @@
 #!/usr/bin/perl
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 use Data::Dump qw(dump);
 
 use lib 'lib';
 
 BEGIN {
-	use_ok( 'RFID::Biblio::RFID501' );
+	use_ok( 'Biblio::RFID::RFID501' );
 }
 
 my $tags =
@@ -32,10 +32,10 @@ my $tags =
 
 foreach my $tag ( @$tags ) {
 
-	ok( $hash = RFID::Biblio::RFID501->to_hash( $tag ), 'to_hash' );
+	ok( $hash = Biblio::RFID::RFID501->to_hash( $tag ), 'to_hash' );
 	diag dump $hash;
 
-	ok( $bytes = RFID::Biblio::RFID501->from_hash( $hash ), 'from_hash' );
+	ok( $bytes = Biblio::RFID::RFID501->from_hash( $hash ), 'from_hash' );
 	my $orig = join('', @$tag);
 	cmp_ok( $bytes, 'eq', $orig, 'roundtrip' );
 
@@ -43,3 +43,6 @@ foreach my $tag ( @$tags ) {
 
 }
 
+ok( my $bytes = Biblio::RFID::RFID501->blank, 'blank' );
+diag dump $bytes;
+