/XML-OverHTTP/t/02_treepp.t
Unknown | 21 lines | 19 code | 2 blank | 0 comment | 0 complexity | 350655f4e3b691ddbf7f760df9148536 MD5 | raw file
1# ---------------------------------------------------------------- 2 use strict; 3 use Test::More tests => 5; 4# ---------------------------------------------------------------- 5{ 6 use_ok('XML::OverHTTP'); 7 8 my $ver = $XML::TreePP::VERSION; 9 ok( ($ver > 0.23), "XML::TreePP $ver" ); 10 11 my $api = XML::OverHTTP->new(); 12 my $tpp = $api->treepp(); 13 ok( ref $tpp, 'treepp' ); 14 $tpp->set( utf8_flag => 1 ); 15 is( $api->treepp()->get( 'utf8_flag' ), 1, 'utf8_flag: true' ); 16 $tpp->set( utf8_flag => 0 ); 17 is( $api->treepp()->get( 'utf8_flag' ), 0, 'utf8_flag: false' ); 18} 19# ---------------------------------------------------------------- 20;1; 21# ----------------------------------------------------------------