Codebase list libcryptx-perl / 44aa0ac
eliminating done_testing Karel Miko 8 years ago
7 changed file(s) with 7 addition(s) and 21 deletion(s). Raw diff Collapse all Expand all
+1
-3
_generators/Mac.t.tt less more
33 use warnings;
44
55 [%- IF t_strings_count %]
6 use Test::More;
6 use Test::More tests => [%t_strings_count * 6%];
77 [%- ELSE %]
88 use Test::More tests => 0;
99 [%- END %]
1818 is( [%lc_name%]_b64([%v.args%],[%v.data%]), '[%v.b64mac%]', '[%orig_name%]/func+b64/[%loop.count%]');
1919 is( [%lc_name%]_b64u([%v.args%],[%v.data%]), '[%v.b64umac%]', '[%orig_name%]/func+b64u/[%loop.count%]');
2020 [%- END %]
21
22 done_testing();
+1
-3
t/mac_f9.t less more
22 use strict;
33 use warnings;
44
5 use Test::More;
5 use Test::More tests => 72;
66
77 use Crypt::Mac::F9 qw( f9 f9_hex f9_b64 f9_b64u );
88
7878 is( f9_hex('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), 'fa83d84023c43a81', 'F9/func+hex/12');
7979 is( f9_b64('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), '+oPYQCPEOoE=', 'F9/func+b64/12');
8080 is( f9_b64u('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), '-oPYQCPEOoE', 'F9/func+b64u/12');
81
82 done_testing();
+1
-3
t/mac_hmac.t less more
22 use strict;
33 use warnings;
44
5 use Test::More;
5 use Test::More tests => 72;
66
77 use Crypt::Mac::HMAC qw( hmac hmac_hex hmac_b64 hmac_b64u );
88
7878 is( hmac_hex('Whirlpool','secretkey',"test\0test\0test\n"), 'dab6a22e05b46ce641e022e6ea2b42646a25b994ed15fed09145e3906d159efba37b899c344f589b3ad5868cd631a8eb304d21dedf47e364c791ccfa665681f7', 'HMAC/func+hex/12');
7979 is( hmac_b64('Whirlpool','secretkey',"test\0test\0test\n"), '2raiLgW0bOZB4CLm6itCZGoluZTtFf7QkUXjkG0Vnvuje4mcNE9YmzrVhozWMajrME0h3t9H42THkcz6ZlaB9w==', 'HMAC/func+b64/12');
8080 is( hmac_b64u('Whirlpool','secretkey',"test\0test\0test\n"), '2raiLgW0bOZB4CLm6itCZGoluZTtFf7QkUXjkG0Vnvuje4mcNE9YmzrVhozWMajrME0h3t9H42THkcz6ZlaB9w', 'HMAC/func+b64u/12');
81
82 done_testing();
+1
-3
t/mac_omac.t less more
22 use strict;
33 use warnings;
44
5 use Test::More;
5 use Test::More tests => 72;
66
77 use Crypt::Mac::OMAC qw( omac omac_hex omac_b64 omac_b64u );
88
7878 is( omac_hex('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), '40e6d018b49ada77', 'OMAC/func+hex/12');
7979 is( omac_b64('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), 'QObQGLSa2nc=', 'OMAC/func+b64/12');
8080 is( omac_b64u('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), 'QObQGLSa2nc', 'OMAC/func+b64u/12');
81
82 done_testing();
+1
-3
t/mac_pelican.t less more
22 use strict;
33 use warnings;
44
5 use Test::More;
5 use Test::More tests => 72;
66
77 use Crypt::Mac::Pelican qw( pelican pelican_hex pelican_b64 pelican_b64u );
88
7878 is( pelican_hex('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa',"test\0test\0test\n"), '8a798fcb2181d9f9ed81fcd2a7f6cd4e', 'Pelican/func+hex/12');
7979 is( pelican_b64('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa',"test\0test\0test\n"), 'inmPyyGB2fntgfzSp/bNTg==', 'Pelican/func+b64/12');
8080 is( pelican_b64u('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa',"test\0test\0test\n"), 'inmPyyGB2fntgfzSp_bNTg', 'Pelican/func+b64u/12');
81
82 done_testing();
+1
-3
t/mac_pmac.t less more
22 use strict;
33 use warnings;
44
5 use Test::More;
5 use Test::More tests => 72;
66
77 use Crypt::Mac::PMAC qw( pmac pmac_hex pmac_b64 pmac_b64u );
88
7878 is( pmac_hex('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), '3797cde072a8e286', 'PMAC/func+hex/12');
7979 is( pmac_b64('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), 'N5fN4HKo4oY=', 'PMAC/func+b64/12');
8080 is( pmac_b64u('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), 'N5fN4HKo4oY', 'PMAC/func+b64u/12');
81
82 done_testing();
+1
-3
t/mac_xcbc.t less more
22 use strict;
33 use warnings;
44
5 use Test::More;
5 use Test::More tests => 72;
66
77 use Crypt::Mac::XCBC qw( xcbc xcbc_hex xcbc_b64 xcbc_b64u );
88
7878 is( xcbc_hex('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), '98276a4a6aafd86b', 'XCBC/func+hex/12');
7979 is( xcbc_b64('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), 'mCdqSmqv2Gs=', 'XCBC/func+b64/12');
8080 is( xcbc_b64u('Blowfish','12345678901234561234567890123456',"test\0test\0test\n"), 'mCdqSmqv2Gs', 'XCBC/func+b64u/12');
81
82 done_testing();