/XML-FeedPP/t/23_match_item.t

http://xml-treepp.googlecode.com/ · Raku · 77 lines · 62 code · 0 blank · 15 comment · 0 complexity · f3a6cc95bd7c82f2bad15fb3018e6d5e MD5 · raw file 

    

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

  2.     use strict;
    3. 

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

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

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

  6.     my $flink  = 'http://www.kawa.net/';
    7. 

  7.     my $ftitle = 'Kawa.net XP';
    8. 

  8.     my $ilink1  = 'http://kawa.at.webry.info/';
    9. 

  9.     my $ilink2  = 'http://kawanet.blogspot.com/';
    10. 

  10.     my $ilink3  = 'http://picasaweb.google.com/www.kawa.net/';
    11. 

  11.     my $ititle1 = 'Kawa.net Blog (ja)';
    12. 

  12.     my $ititle2 = 'Kawa.net Blog (en)';
    13. 

  13.     my $ititle3 = 'Kawa.net Albums';
    14. 

  14.     my $iorgkey = 'foo:bar';
    15. 

  15.     my $iorgv1  = 'test #1';
    16. 

  16.     my $iorgv2  = 'testing #2';
    17. 

  17.     my $iorgv3  = 'tested #3';
    18. 

  18. # ----------------------------------------------------------------
    19. 

  19.     my $initfeed = {
    20. 

  20.         link        =>  $flink,
    21. 

  21.         title       =>  $ftitle,
    22. 

  22.     };
    23. 

  23. # ----------------------------------------------------------------
    24. 

  24.     my $initem1 = {
    25. 

  25.         link        =>  $ilink1,
    26. 

  26.         title       =>  $ititle1,
    27. 

  27.         $iorgkey    =>  $iorgv1,
    28. 

  28.     };
    29. 

  29. # ----------------------------------------------------------------
    30. 

  30.     my $initem2 = {
    31. 

  31.         link        =>  $ilink2,
    32. 

  32.         title       =>  $ititle2,
    33. 

  33.         $iorgkey    =>  $iorgv2,
    34. 

  34.     };
    35. 

  35. # ----------------------------------------------------------------
    36. 

  36.     my $initem3 = {
    37. 

  37.         link        =>  $ilink3,
    38. 

  38.         title       =>  $ititle3,
    39. 

  39.         $iorgkey    =>  $iorgv3,
    40. 

  40.     };
    41. 

  41. # ----------------------------------------------------------------
    42. 

  42.     my $feeds = [
    43. 

  43.         XML::FeedPP::RSS->new( %$initfeed ),
    44. 

  44.         XML::FeedPP::RDF->new( %$initfeed ),
    45. 

  45.         XML::FeedPP::Atom->new( %$initfeed ),
    46. 

  46.     ];
    47. 

  47.     foreach my $feed1 ( @$feeds ) {
    48. 

  48.         my $type = ref $feed1;
    49. 

  49.         my $item1 = $feed1->add_item( %$initem1 );
    50. 

  50.         my $item2 = $feed1->add_item( %$initem2 );
    51. 

  51.         my $item3 = $feed1->add_item( %$initem3 );
    52. 

  52. # ----------------------------------------------------------------
    53. 

  53.         my @item8 = $feed1->get_item();
    54. 

  54.         is( scalar @item8, 3, "$type feed has 3 items" );
    55. 

  55. # ----------------------------------------------------------------
    56. 

  56.         my @item4 = $feed1->match_item( link => qr/google.com/i );
    57. 

  57.         is( scalar @item4, 1, "$type match 1 item by title" );
    58. 

  58.         is( $item4[0]->link(), $ilink3, "$type match google.com by link" );
    59. 

  59. # ----------------------------------------------------------------
    60. 

  60.         my @item5 = $feed1->match_item( title => qr/blog/i );
    61. 

  61.         is( scalar @item5, 2, "$type match 2 items by title" );
    62. 

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

  63.         my @item6 = $feed1->match_item( $iorgkey => qr/^test/i );
    64. 

  64.         is( scalar @item6, 3, "$type match 3 items by $iorgkey" );
    65. 

  65. # ----------------------------------------------------------------
    66. 

  66.         my @item7 = $feed1->match_item(
    67. 

  67.             link     => $ilink2,
    68. 

  68.             title    => qr/blog/i,
    69. 

  69.             $iorgkey => qr/testing/i
    70. 

  70.         );
    71. 

  71.         is( scalar @item7, 1, "$type match 1 item by 3 args" );
    72. 

  72.         is( $item7[0]->link(), $ilink2, "$type match blogspot.com by 3 args" );
    73. 

  73. # ----------------------------------------------------------------
    74. 

  74.     }
    75. 

  75. # ----------------------------------------------------------------
    76. 

  76. ;1;
    77. 

  77. # ----------------------------------------------------------------
    78.