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

BEGIN {
	unless ($] >= 5.006) {
		print "1..0\n";
		exit(0);
	}
        if ($ENV{PERL_CORE}) {
                chdir 't' if -d 't';
                @INC = '../lib';
        }
}

print "1..1\n";

require MIME::Base64;

eval {
    MIME::Base64::encode(v300);
};

print "not " unless $@;
print "ok 1\n";
Commit	Line	Data
6fba102d	1	BEGIN {
b9e0df4c	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	}
6fba102d	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