2 # $Id: Encoder.t,v 1.3 2002/04/16 23:35:00 dankogai Exp $
6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bEncode\b/) {
8 print "1..0 # Skip: Encode was not built\n";
15 #use Test::More 'no_plan';
16 use Test::More tests => 516;
17 use Encode::Encoder qw(encoder);
19 package Encode::Base64;
20 use base 'Encode::Encoding';
21 __PACKAGE__->Define('base64');
24 my ($obj, $data) = @_;
25 return encode_base64($data);
28 my ($obj, $data) = @_;
29 return decode_base64($data);
34 my $e = encoder("foo", "ascii");
37 ok ($e->encoding("latin1"));
38 is ($e->encoding, "iso-8859-1");
44 my $base64 = encode_base64($data);
45 is(encoder($data)->base64, $base64, "encode");
46 is(encoder($base64)->bytes('base64'), $data, "decode");