add mime encode/decode checks

1 files changed, 30 insertions, 0 deletions

diff --git a/regress/base/mime.pl b/regress/base/mime.pl
new file mode 100755
index 00000000..33691a27
--- /dev/null
+++ b/regress/base/mime.pl
@@ -0,0 +1,30 @@
+#!/usr/local/bin/perl
+
+use strict;
+use Carp;
+use FML::MIME qw(mime_decode_string mime_encode_string);
+use MIME::Base64;
+
+
+&try_mime("");
+&try_mime("　");
+&try_mime("\n");
+
+exit 0;
+
+
+sub try_mime
+{
+    my ($separator) = @_;
+
+    my $orig_str = "うじゃ". $separator ."あじゃじゃ";
+    my $in_str   = mime_encode_string($orig_str);
+    my $out_str  = mime_decode_string($in_str, {charset => 'euc-japan'}), 
+
+    print "   >", $orig_str, "<\n";
+    print "   >", $in_str, "<\n";
+    print "   <", $out_str, "<\n";
+    print ($orig_str eq $out_str ? "ok\n" : "fail\n");
+}
+
+1;