Update MIME::Base64 and Digest::MD5 from the CPAN version.

[p5sagit/p5-mst-13.2.git] / ext / MIME / Base64 / t / unicode.t

diff --git a/ext/MIME/Base64/t/unicode.t b/ext/MIME/Base64/t/unicode.t
index 8037440..b09a328 100644 (file)
--- a/ext/MIME/Base64/t/unicode.t
+++ b/ext/MIME/Base64/t/unicode.t
@@ -9,14 +9,25 @@ BEGIN {
         }
 }
 
-print "1..1\n";
+print "1..2\n";
 
 require MIME::Base64;
 
 eval {
-    MIME::Base64::encode(v300);
+    my $tmp = MIME::Base64::encode(v300);
+    print "# enc: $tmp\n";
 };
-
+print "# $@" if $@;
 print "not " unless $@;
 print "ok 1\n";
 
+require MIME::QuotedPrint;
+
+eval {
+    my $tmp = MIME::QuotedPrint::encode(v300);
+    print "# enc: $tmp\n";
+};
+print "# $@" if $@;
+print "not " unless $@;
+print "ok 2\n";
+