Change 16326: Add the new Digest::MD5 test.

[Jarkko Hietaniemi]

Change 16326 by jhi@alpha on 2002/05/02 03:41:39

        Add the new Digest::MD5 test.

Affected files ...

.... //depot/perl/MANIFEST#873 edit
.... //depot/perl/ext/Digest/MD5/t/utf8.t#1 add

Differences ...

==== //depot/perl/MANIFEST#873 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~   Wed May  1 21:45:05 2002
+++ perl/MANIFEST       Wed May  1 21:45:05 2002
@@ -174,6 +174,7 @@
 ext/Digest/MD5/t/badfile.t     See if Digest::MD5 extension works
 ext/Digest/MD5/t/files.t       See if Digest::MD5 extension works
 ext/Digest/MD5/t/md5-aaa.t     See if Digest::MD5 extension works
+ext/Digest/MD5/t/utf8.t                See if Digest::MD5 extension works
 ext/Digest/MD5/typemap         Digest::MD5 extension
 ext/DynaLoader/dlutils.c       Dynamic loader utilities for dl_*.xs files
 ext/DynaLoader/dl_aix.xs       AIX implementation

==== //depot/perl/ext/Digest/MD5/t/utf8.t#1 (text) ====
Index: perl/ext/Digest/MD5/t/utf8.t
--- perl/ext/Digest/MD5/t/utf8.t.~1~    Wed May  1 21:45:05 2002
+++ perl/ext/Digest/MD5/t/utf8.t        Wed May  1 21:45:05 2002
@@ -0,0 +1,29 @@
+#!perl -w
+
+if ($] < 5.006) {
+    print "1..0\n";
+    exit;
+}
+
+print "1..3\n";
+
+use strict;
+use Digest::MD5 qw(md5_hex);
+
+my $str;
+$str = "foo\xFF\x{100}";
+
+eval {
+    print md5_hex($str);
+    print "not ok 1\n";  # should not run
+};
+print "not " unless $@ && $@ =~ /^(Big byte|Wide character)/;
+print "ok 1\n";
+
+chop($str);  # only bytes left
+print "not " unless md5_hex($str) eq "503debffe559537231ed24f25651ec20";
+print "ok 2\n";
+
+# reference
+print "not " unless md5_hex("foo\xFF") eq "503debffe559537231ed24f25651ec20";
+print "ok 3\n";
End of Patch.