/XML-TreePP/t/38_cdata_cdsect.t

http://xml-treepp.googlecode.com/ · Raku · 62 lines · 49 code · 8 blank · 5 comment · 4 complexity · 3dd7d9501a7db885657e2e2c51ff2330 MD5 · raw file 

    

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

  2.     use strict;
    3. 

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

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

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

  6. {
    7. 

  7.     my $test = {
    8. 

  8.         '<cdata><![CDATA[]]></cdata>'       =>  '',
    9. 

  9.         '<cdata><![CDATA[]]]></cdata>'      =>  ']',
    10. 

  10.         '<cdata><![CDATA[>]]></cdata>'      =>  '>',
    11. 

  11. 

  12.         '<cdata><![CDATA[]]]]></cdata>'                 =>  ']]',
    13. 

  13.         '<cdata><![CDATA[]]]><![CDATA[]]]></cdata>'     =>  ']]',
    14. 

  14. 

  15.         '<cdata><![CDATA[]>]]></cdata>'                 =>  ']>',
    16. 

  16.         '<cdata><![CDATA[]]]><![CDATA[>]]></cdata>'     =>  ']>',
    17. 

  17. 

  18.         '<cdata>]<![CDATA[]]]>&gt;</cdata>'             =>  ']]>',
    19. 

  19.         '<cdata>]<![CDATA[]>]]></cdata>'                =>  ']]>',
    20. 

  20.         '<cdata><![CDATA[]]]]>&gt;</cdata>'             =>  ']]>',
    21. 

  21.         '<cdata><![CDATA[]]]]><![CDATA[>]]></cdata>'    =>  ']]>',
    22. 

  22.         '<cdata><![CDATA[]]]><![CDATA[]>]]></cdata>'    =>  ']]>',
    23. 

  23.         '<cdata>]<![CDATA[]]]><![CDATA[>]]></cdata>'    =>  ']]>',
    24. 

  24.         '<cdata><![CDATA[]]]><![CDATA[]]]>&gt;</cdata>' =>  ']]>',
    25. 

  25.         '<cdata><![CDATA[]]]>]<![CDATA[>]]></cdata>'    =>  ']]>',
    26. 

  26.         '<cdata><![CDATA[]]]><![CDATA[]]]><![CDATA[>]]></cdata>'    =>  ']]>',
    27. 

  27. 

  28.         '<cdata><![CDATA[]]]><![CDATA[]>]]]]><![CDATA[>]]></cdata>' =>  ']]>]]>',
    29. 

  29.         '<cdata><![CDATA[]]]><![CDATA[]>]]]><![CDATA[]>]]></cdata>' =>  ']]>]]>',
    30. 

  30. 

  31.         '<cdata><![CDATA[]]]><![CDATA[]>]]><![CDATA[]]]]><![CDATA[>]]></cdata>' =>  ']]>]]>',
    32. 

  32.         '<cdata><![CDATA[]]]]><![CDATA[>]]><![CDATA[]]]><![CDATA[]>]]></cdata>' =>  ']]>]]>',
    33. 

  33.     };
    34. 

  34.     &cdata_cdsect( $test );
    35. 

  35.     &cdata_cdsect( $test, { cdata_scalar_ref=>1 } );
    36. 

  36. }
    37. 

  37. # ----------------------------------------------------------------
    38. 

  38. sub cdata_cdsect {
    39. 

  39.     my $list = shift;
    40. 

  40.     my $opt  = shift;
    41. 

  41.     my $tpp  = XML::TreePP->new( %$opt );
    42. 

  42. 

  43.     foreach my $src ( keys %$list ) {
    44. 

  44.         my $val = $list->{$src};
    45. 

  45.         my $tree = $tpp->parse( $src );
    46. 

  46.         ok( exists $tree->{cdata}, 'exists' );
    47. 

  47. 

  48.         my $cdata = $tree->{cdata};
    49. 

  49.         $cdata = $$cdata if ( ref $cdata eq 'SCALAR' );
    50. 

  50.         ok( ! ref $cdata, 'invalid ref' );
    51. 

  51.         is( $cdata, $val, $val );
    52. 

  52. 

  53.         my $xml = $tpp->write( $tree );
    54. 

  54.         my $again = $tpp->parse( $xml );
    55. 

  55.         my $cdat2 = $again->{cdata};
    56. 

  56.         $cdat2 = $$cdat2 if ( ref $cdat2 eq 'SCALAR' );
    57. 

  57.         is( $cdat2, $cdata, 'round trip' );
    58. 

  58.     }
    59. 

  59. }
    60. 

  60. # ----------------------------------------------------------------
    61. 

  61. ;1;
    62. 

  62. # ----------------------------------------------------------------
    63.