?????????? ????????? - ??????????????? - /home/.cpan/build/Digest-MD5-2.59-0/t/bits.t
???????
#!perl -w use strict; use warnings; use Test::More tests => 2; use Digest::MD5; my $md5 = Digest::MD5->new; if ($Digest::base::VERSION) { $md5->add_bits("01111111"); is($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595"); eval { $md5->add_bits("0111"); }; like($@, qr/must be multiple of 8/); } else { print "# No Digest::base\n"; eval { $md5->add_bits("foo"); }; like($@, qr/^Can\'t locate Digest\/base\.pm in \@INC/); ok(1); # dummy }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????