/XML-TreePP/t/45_attr_space.t

http://xml-treepp.googlecode.com/ · Raku · 32 lines · 29 code · 1 blank · 2 comment · 0 complexity · 6021d591e46f2ff4a934f60adb64a0bd MD5 · raw file 

    

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

  2.     use strict;
    3. 

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

  4.     BEGIN { use_ok('XML::TreePP') };
    5. 

  5. # ----------------------------------------------------------------
    6. 

  6.     my $tpp = XML::TreePP->new();
    7. 

  7.     my $list = [
    8. 

  8.         '<root aaa="AAA" bbb ="BBB" zzz ccc= "CCC" ddd = "DDD" >XXX</root>',
    9. 

  9.         "<root aaa='AAA' bbb ='BBB' zzz ccc= 'CCC' ddd = 'DDD' >XXX</root>",
    10. 

  10.         '<root aaa="AAA" bbb ="BBB" zzz ccc= "CCC" ddd = "DDD">XXX</root>',
    11. 

  11.         "<root aaa='AAA' bbb ='BBB' zzz ccc= 'CCC' ddd = 'DDD'>XXX</root>",
    12. 

  12.         '<root aaa="AAA" bbb ="BBB" zzz ccc= "CCC" ddd = "DDD" ></root>',
    13. 

  13.         "<root aaa='AAA' bbb ='BBB' zzz ccc= 'CCC' ddd = 'DDD' ></root>",
    14. 

  14.         '<root aaa="AAA" bbb ="BBB" zzz ccc= "CCC" ddd = "DDD"></root>',
    15. 

  15.         "<root aaa='AAA' bbb ='BBB' zzz ccc= 'CCC' ddd = 'DDD'></root>",
    16. 

  16.         '<root aaa="AAA" bbb ="BBB" zzz ccc= "CCC" ddd = "DDD" />',
    17. 

  17.         "<root aaa='AAA' bbb ='BBB' zzz ccc= 'CCC' ddd = 'DDD' />",
    18. 

  18.         '<root aaa="AAA" bbb ="BBB" zzz ccc= "CCC" ddd = "DDD"/>',
    19. 

  19.         "<root aaa='AAA' bbb ='BBB' zzz ccc= 'CCC' ddd = 'DDD'/>",
    20. 

  20.     ];
    21. 

  21. 

  22.     foreach my $source ( @$list ) {
    23. 

  23.         my $tree = $tpp->parse( $source );
    24. 

  24.         my $sep = ( $source =~ /(['"])/ )[0];
    25. 

  25.         is( $tree->{root}->{"-aaa"}, "AAA", "key=".$sep."val".$sep." (no space)" );
    26. 

  26.         is( $tree->{root}->{"-bbb"}, "BBB", "key =".$sep."val".$sep." (left space)" );
    27. 

  27.         is( $tree->{root}->{"-ccc"}, "CCC", "key= ".$sep."val".$sep." (right space)" );
    28. 

  28.         is( $tree->{root}->{"-ddd"}, "DDD", "key = ".$sep."val".$sep." (both space)" );
    29. 

  29.     }
    30. 

  30. # ----------------------------------------------------------------
    31. 

  31. ;1;
    32. 

  32. # ----------------------------------------------------------------
    33.