?????????? ????????? - ??????????????? - /home/.cpan/build/MIME-Base32-1.303-0/t/00-base32.t
???????
use strict; use warnings; use Test::More; BEGIN { use_ok( 'MIME::Base32' ) || BAIL_OUT("Can't use MIME::Base32"); } can_ok('MIME::Base32', ( qw(encode decode), qw(encode_base32 decode_base32), qw(encode_rfc3548 decode_rfc3548), )) or BAIL_OUT("Something's wrong with the module!"); my $string = 'Hallo world, whats new? 1234567890 abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ .:!%$@#*()[]{}<>"/ '; my $encoded = 'JBQWY3DPEB3W64TMMQWCA53IMF2HGIDOMV3T6IBRGIZTINJWG44DSMBAMFRGGZDFMZTWQ2LKNNWG23TPOBYXE43UOV3HO6DZPIQECQSDIRCUMR2IJFFEWTCNJZHVAUKSKNKFKVSXLBMVUIBOHIQSKJCAEMVCQKK3LV5X2PB6EIXSA'; is(MIME::Base32::encode($string),$encoded, 'encode: got the correct response'); is(MIME::Base32::decode($encoded),$string, 'decode: got the correct response'); is(MIME::Base32::decode(lc($encoded)),$string, 'decode: case insensitive'); is(MIME::Base32::encode_base32($string),$encoded, 'encode_base32: got the correct response'); is(MIME::Base32::decode_base32($encoded),$string, 'decode_base32: got the correct response'); is(MIME::Base32::decode_base32(lc($encoded)),$string, 'decode_base32: case insensitive?'); is(MIME::Base32::encode_rfc3548($string),$encoded, 'encode_rfc3548: got the correct response'); is(MIME::Base32::decode_rfc3548($encoded),$string, 'decode_rfc3548: got the correct response'); is(MIME::Base32::decode_rfc3548(lc($encoded)),$string, 'decode_rfc3548: case insensitive'); is(encode_base32(undef),'','encode_base32: undef passed'); is(decode_base32(undef),'','decode_base32: undef passed'); is(encode_base32(),'','encode_base32: empty call'); is(decode_base32(),'','decode_base32: empty call'); is(encode_base32(''),'','encode_base32: empty string passed'); is(decode_base32(''),'','decode_base32: empty string passed'); done_testing();
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????