diff options
| -rw-r--r-- | regress/base/Makefile | 3 | ||||
| -rwxr-xr-x | regress/base/mime.pl | 30 |
2 files changed, 33 insertions, 0 deletions
diff --git a/regress/base/Makefile b/regress/base/Makefile index e4a2b13f..c9b1b918 100644 --- a/regress/base/Makefile +++ b/regress/base/Makefile @@ -1,6 +1,8 @@ PERL = perl -I ../../fml/lib -I ../../cpan/lib test: + @ echo "* mime" + @ $(PERL) ../base/mime.pl @ echo "* lock test" @ $(PERL) ../base/lock.pl @ echo "* checksum test" @@ -8,3 +10,4 @@ test: @ echo "* multipart operations test" @ sh ../base/multipart_io.sh @ sh ../base/multipart_maker.sh + 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; |