1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 4;
BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
SKIP: {
my $rss = XML::FeedPP::RSS->new();
like( $rss->to_string( "UTF-8" ),
qr/<\?xml[^>]+encoding="UTF-8"/i, "RSS w/UTF-8" );
eval { require Encode; };
eval { require Jcode; } if ! defined $Encode::VERSION;
if ( ! defined $Encode::VERSION && ! defined $Jcode::VERSION ) {
skip( "Encode.pm or Jcode.pm is required: Shift_JIS", 2 );
}
my $atom = XML::FeedPP::Atom->new();
like( $atom->to_string( "Shift_JIS" ),
qr/<\?xml[^>]+encoding="Shift_JIS/i, "Atom w/Shift_JIS" );
if ( ! defined $Encode::VERSION ) {
skip( "Encode.pm is required: ISO-8859-1", 1 );
}
my $rdf = XML::FeedPP::RDF->new();
like( $rdf->to_string( "ISO-8859-1" ),
qr/<\?xml[^>]+encoding="ISO-8859-1"/i, "RDF w/ISO-8859-1" );
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
