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..1\n";
  13
  14 require MIME::Base64;
  15
  16 eval {
  17     MIME::Base64::encode(v300);
  18 };
  19
  20 print "not " unless $@;
  21 print "ok 1\n";
  22