Better tests

diff --git a/t/Convert-Base91.t b/t/Convert-Base91.t
index 01edc359ca4a3c0b813f1bdb2c89c2f99a08ef6c..7f5489f20e9e84beaac0f24e5e9a56731a7cf2ce 100644 (file)
--- a/t/Convert-Base91.t
+++ b/t/Convert-Base91.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

-use Test::More tests => 6;
+use Test::More tests => 9;

 BEGIN { use_ok('Convert::Base91', qw/encode_base91 decode_base91/) };
 
 is encode_base91("Hello, World!\n"), '>OwJh>}AQ;r@@Y?FF', 'encode';
 BEGIN { use_ok('Convert::Base91', qw/encode_base91 decode_base91/) };
 
 is encode_base91("Hello, World!\n"), '>OwJh>}AQ;r@@Y?FF', 'encode';


@@ -22,3 +22,8 @@ $base91->decode('>OwJh>}AQ');
 $base91->decode(';r@@Y?FF');
 my $decoded = $base91->decode_end;
 is $decoded, "Hello, World!\n", 'OO decode';
 $base91->decode(';r@@Y?FF');
 my $decoded = $base91->decode_end;
 is $decoded, "Hello, World!\n", 'OO decode';

+
+is $base91->decode_end, '', 'double decode_end';
+is $base91->encode_end, '', 'encode_end without data';
+
+is decode_base91(">\x00OwJh\x01>}A\xFE\xDDQ;r@\@Y?FF\x05"), "Hello, World!\n", 'decode with junk';