/XML-OverHTTP/t/02_treepp.t

http://xml-treepp.googlecode.com/ · Raku · 21 lines · 15 code · 2 blank · 4 comment · 1 complexity · 350655f4e3b691ddbf7f760df9148536 MD5 · raw file 

    

  1. # ----------------------------------------------------------------
    2. 

  2.     use strict;
    3. 

  3.     use Test::More tests => 5;
    4. 

  4. # ----------------------------------------------------------------
    5. 

  5. {
    6. 

  6. 	use_ok('XML::OverHTTP');
    7. 

  7. 

  8. 	my $ver = $XML::TreePP::VERSION;
    9. 

  9. 	ok( ($ver > 0.23), "XML::TreePP $ver" );
    10. 

  10. 

  11.     my $api = XML::OverHTTP->new();
    12. 

  12. 	my $tpp = $api->treepp();
    13. 

  13. 	ok( ref $tpp, 'treepp' );
    14. 

  14. 	$tpp->set( utf8_flag => 1 );
    15. 

  15. 	is( $api->treepp()->get( 'utf8_flag' ), 1, 'utf8_flag: true' );
    16. 

  16. 	$tpp->set( utf8_flag => 0 );
    17. 

  17. 	is( $api->treepp()->get( 'utf8_flag' ), 0, 'utf8_flag: false' );
    18. 

  18. }
    19. 

  19. # ----------------------------------------------------------------
    20. 

  20. ;1;
    21. 

  21. # ----------------------------------------------------------------
    22.