Cross Reference: bits.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
Digest
/
MD5
/
t
/
bits.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
bits.t revision 1
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
#!perl -w
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
use
Test
qw
(
plan
ok
)
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
plan
tests
=>
2
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
use
Digest
::
MD5
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
my
$md5
=
Digest
::
MD5
->
new
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
if
(
$Digest
::
base
::
VERSION
)
{
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
$md5
->
add_bits
(
"01111111"
)
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
ok
(
$md5
->
hexdigest
,
"83acb6e67e50e31db6ed341dd2de1595"
)
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
eval
{
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
$md5
->
add_bits
(
"0111"
)
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
}
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
ok
($@ =~ /
must
be
multiple
of
8
/)
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
}
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
else
{
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
print
"# No Digest::base\n"
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
eval
{
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
$md5
->
add_bits
(
"foo"
)
;
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn
}
;
d5af1880773b35da2da505be54be517b746e7410
ludovicp
ok
($@ =~ /^
Can
\'t
locate
Digest
\/
base
\.
pm
in
\@
INC
/)
;
d5af1880773b35da2da505be54be517b746e7410
ludovicp
ok
(
1
)
;
# dummy
d5af1880773b35da2da505be54be517b746e7410
ludovicp
}
d5af1880773b35da2da505be54be517b746e7410
ludovicp
9def8137e705ec92bc3a2881a8457795c860fdb1
shankar_mbn