/XML-TreePP/t/49_invalid_encoding.t
http://xml-treepp.googlecode.com/ · Raku · 61 lines · 56 code · 0 blank · 5 comment · 1 complexity · 20834fd5cb397fd34e661a7ff8609096 MD5 · raw file
- # ----------------------------------------------------------------
- use strict;
- use Test::More;
- # ----------------------------------------------------------------
- {
- local $@;
- eval { require 5.008001; };
- plan skip_all => 'Perl 5.8.1 is required.' if $@;
- }
- # ----------------------------------------------------------------
- my $ENC = 'UNKNOWN_ENCODING';
- # ----------------------------------------------------------------
- {
- plan tests => 4;
- use_ok('XML::TreePP');
- &test1();
- &test2();
- &test3();
- }
- # ----------------------------------------------------------------
- sub test1 {
- my $xml = <<"EOT";
- <?xml version="1.0" encoding="$ENC"?>
- <root>
- <elem>value</elem>
- </root>
- EOT
- my $tpp = XML::TreePP->new();
- local $@;
- eval {
- my $tree = $tpp->parse( $xml );
- };
- like( $@, qr#^Unknown encoding#, 'parse: '.$@ );
- }
- # ----------------------------------------------------------------
- sub test2 {
- my $tree = { root => { elem => 'value' }};
- my $tpp = XML::TreePP->new();
- local $@;
- eval {
- my $xml = $tpp->write( $tree, $ENC );
- };
- like( $@, qr#^Unknown encoding#, 'write: '.$@ );
- }
- # ----------------------------------------------------------------
- sub test3 {
- my $tree = { root => { elem => 'value' }};
- my $tpp = XML::TreePP->new( output_encoding => $ENC );
- local $@;
- eval {
- my $xml = $tpp->write( $tree );
- };
- like( $@, qr#^Unknown encoding#, 'output_encoding: '.$@ );
- }
- # ----------------------------------------------------------------
- ;1;
- # ----------------------------------------------------------------