ext/MIME-Base64/t/unicode.t

   1 BEGIN {
   2         unless ($] >= 5.006) {
   3                 print "1..0\n";
   4                 exit(0);
   5         }
   6         if ($ENV{PERL_CORE}) {
   7                 chdir 't' if -d 't';
   8                 @INC = '../lib';
   9         }
  10 }
  11
  12 print "1..2\n";
  13
  14 require MIME::Base64;
  15
  16 eval {
  17     my $tmp = MIME::Base64::encode(v300);
  18     print "# enc: $tmp\n";
  19 };
  20 print "# $@" if $@;
  21 print "not " unless $@;
  22 print "ok 1\n";
  23
  24 require MIME::QuotedPrint;
  25
  26 eval {
  27     my $tmp = MIME::QuotedPrint::encode(v300);
  28     print "# enc: $tmp\n";
  29 };
  30 print "# $@" if $@;
  31 print "not " unless $@;
  32 print "ok 2\n";
  33