Changeset 1858

Show
Ignore:
Timestamp:
11/25/06 18:42:55
Author:
miyagawa
Message:

Namespace::MediaRSS: Added test to extract tags from urn:flickr:tags

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • branches/feature-geo/plagger/t/plugins/Namespace-MediaRSS/base.t

    r1769 r1858  
    44use t::TestPlagger; 
    55 
    6 plan tests => 6
     6plan tests => 7
    77run_eval_expected; 
    88 
     
    2020        - file://$t::TestPlagger::BaseDirURI/t/samples/monkey.rss 
    2121        - file://$t::TestPlagger::BaseDirURI/t/samples/googlevideo.xml 
     22        - file://$t::TestPlagger::BaseDirURI/t/samples/flickr-geo.xml 
    2223--- expected 
    2324my @feeds = $context->update->feeds; 
    2425 
    25 is( ($feeds[0]->entries)[0]->enclosures->[0]->url, 'http://youtube.com/v/MgldehkjK5k.swf' ); 
    26 is( ($feeds[0]->entries)[0]->enclosures->[0]->type, 'application/x-shockwave-flash' ); 
    27 is( ($feeds[0]->entries)[0]->icon->{url}, 'http://sjl-static4.sjl.youtube.com/vi/MgldehkjK5k/2.jpg' ); 
    28 is( ($feeds[1]->entries)[0]->enclosures->[0]->type, 'video/mp4' ); 
    29 is( ($feeds[1]->entries)[0]->enclosures->[1]->type, 'video/x-flv' ); 
    30 is( ($feeds[1]->entries)[0]->icon->{url}, 'http://video.google.com/ThumbnailServer?app=vss&contentid=ac22092b58659308&second=5&itag=w320&urlcreated=1148908032&sigh=oxDLuV7bChBhYFMFSFamVpkIHHE' ); 
     26is( $feeds[0]->entries->[0]->enclosures->[0]->url, 'http://youtube.com/v/MgldehkjK5k.swf' ); 
     27is( $feeds[0]->entries->[0]->enclosures->[0]->type, 'application/x-shockwave-flash' ); 
     28is( $feeds[0]->entries->[0]->icon->{url}, 'http://sjl-static4.sjl.youtube.com/vi/MgldehkjK5k/2.jpg' ); 
     29is( $feeds[1]->entries->[0]->enclosures->[0]->type, 'video/mp4' ); 
     30is( $feeds[1]->entries->[0]->enclosures->[1]->type, 'video/x-flv' ); 
     31is( $feeds[1]->entries->[0]->icon->{url}, 'http://video.google.com/ThumbnailServer?app=vss&contentid=ac22092b58659308&second=5&itag=w320&urlcreated=1148908032&sigh=oxDLuV7bChBhYFMFSFamVpkIHHE' ); 
    3132 
    32  
     33is_deeply $feeds[2]->entries->[0]->tags, [ qw( geotagged geolat354684867 geolon1351218208 ) ];