2 # $Id: Encoder.t,v 1.2 2002/04/10 22:28:40 dankogai Exp $
6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bEncode\b/) {
8 print "1..0 # Skip: Encode was not built\n";
11 # should work without perlio
12 # unless (find PerlIO::Layer 'perlio') {
13 # print "1..0 # Skip: PerlIO was not built\n";
16 # should work on EBCDIC
17 # if (ord("A") == 193) {
18 # print "1..0 # Skip: EBCDIC\n";
25 #use Test::More 'no_plan';
26 use Test::More tests => 516;
27 use Encode::Encoder qw(encoder);
29 package Encode::Base64;
30 use base 'Encode::Encoding';
31 __PACKAGE__->Define('base64');
34 my ($obj, $data) = @_;
35 return encode_base64($data);
38 my ($obj, $data) = @_;
39 return decode_base64($data);
44 my $e = encoder("foo", "ascii");
47 ok ($e->encoding("latin1"));
48 is ($e->encoding, "iso-8859-1");
54 my $base64 = encode_base64($data);
55 is(encoder($data)->base64, $base64, "encode");
56 is(encoder($base64)->bytes('base64'), $data, "decode");