PageRenderTime 12ms CodeModel.GetById 2ms app.highlight 8ms RepoModel.GetById 1ms app.codeStats 0ms

/XML-OverHTTP/t/02_treepp.t

http://xml-treepp.googlecode.com/
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# ----------------------------------------------------------------