From 0ca5f5593440131c7d3a7010cad05d2ea28bed95 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 30 Dec 2017 19:30:32 +0200 Subject: [PATCH] Better tests --- t/Convert-Base91.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/Convert-Base91.t b/t/Convert-Base91.t index 01edc35..7f5489f 100644 --- a/t/Convert-Base91.t +++ b/t/Convert-Base91.t @@ -2,7 +2,7 @@ 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'; @@ -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'; + +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'; -- 2.30.2