/XML-FeedPP/t/19_invalid_w3cdtf.t

http://xml-treepp.googlecode.com/ · Raku · 41 lines · 33 code · 0 blank · 8 comment · 2 complexity · 8f6d65f8a058c530e90596a94031c87f MD5 · raw file 

    

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

  2.     use strict;
    3. 

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

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

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

  6.     my $map = {
    7. 

  7.         # valid - http://www.w3.org/TR/NOTE-datetime
    8. 

  8.         "2001-02-03"                    =>  "2001-02-03T00:00:00Z",
    9. 

  9.         "2002-03-04T05:06Z"             =>  "2002-03-04T05:06:00Z",
    10. 

  10.         "2003-04-05T06:07+08:30"        =>  "2003-04-05T06:07:00+08:30",
    11. 

  11.         "2004-05-06T07:08:09Z"          =>  "2004-05-06T07:08:09Z",
    12. 

  12.         "2005-06-07T08:09:10-11:30"     =>  "2005-06-07T08:09:10-11:30",
    13. 

  13.         "2006-07-08T09:10:11.12Z"       =>  "2006-07-08T09:10:11Z",
    14. 

  14.         "2007-08-09T10:11:12.13+14:30"  =>  "2007-08-09T10:11:12+14:30",
    15. 

  15.         # invalid - http://portal.nifty.com/rss/headline.rdf
    16. 

  16.         "2000-01-02T03:04:05:+09:00"    =>  "2000-01-02T03:04:05+09:00",
    17. 

  17. 	# invalid - http://www.cnc.co.jp/news/xml/rss.xml
    18. 

  18. 	"2008-03-24T16:54:33 +0900"     =>  "2008-03-24T16:54:33+09:00",
    19. 

  19.     };
    20. 

  20. # ----------------------------------------------------------------
    21. 

  21.     my $rss = XML::FeedPP::RSS->new();
    22. 

  22.     foreach my $try ( sort keys %$map ) {
    23. 

  23.         my $url = "http://www.kawa.net/?date=$try";
    24. 

  24.         my $item3 = $rss->add_item( $url );
    25. 

  25.         $item3->pubDate( $try );
    26. 

  26.     }
    27. 

  27.     my $xml = $rss->to_string();
    28. 

  28.     my $rdf = XML::FeedPP::RDF->new();
    29. 

  29.     $rdf->merge( $xml );
    30. 

  30.     my $check = {};
    31. 

  31.     foreach my $item4 ( $rdf->get_item() ) {
    32. 

  32.         my $url = $item4->link();
    33. 

  33.         my $try = (split( /=/, $url ))[1];
    34. 

  34.         next unless defined $map->{$try};
    35. 

  35.         $check->{$try} ++;
    36. 

  36.         is( $item4->pubDate(), $map->{$try}, "RSS to RDF: $try" );
    37. 

  37.     }
    38. 

  38.     is( (scalar keys %$check), (scalar keys %$map), "RSS to RDF: checked" );
    39. 

  39. # ----------------------------------------------------------------
    40. 

  40. ;1;
    41. 

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