bits.t revision 1
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn#!perl -w
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbnuse Test qw(plan ok);
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbnplan tests => 2;
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbnuse Digest::MD5;
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbnmy $md5 = Digest::MD5->new;
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbnif ($Digest::base::VERSION) {
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn $md5->add_bits("01111111");
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn ok($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595");
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn eval {
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn $md5->add_bits("0111");
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn };
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn ok($@ =~ /must be multiple of 8/);
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn}
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbnelse {
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn print "# No Digest::base\n";
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn eval {
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn $md5->add_bits("foo");
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn };
d5af1880773b35da2da505be54be517b746e7410ludovicp ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/);
d5af1880773b35da2da505be54be517b746e7410ludovicp ok(1); # dummy
d5af1880773b35da2da505be54be517b746e7410ludovicp}
d5af1880773b35da2da505be54be517b746e7410ludovicp
9def8137e705ec92bc3a2881a8457795c860fdb1shankar_mbn