view release on metacpan or  search on metacpan

t/10.extract.t  view on Meta::CPAN

#!/usr/bin/env perl
#
use 5.006;
use strict;
use warnings FATAL => 'all';
use utf8;

use Test::More;
use FindBin;
use File::Slurper qw( read_text );

BEGIN {
    use_ok( 'HTML::ExtractMeta' );
}

{
    my $html = read_text( $FindBin::Bin . '/html/techcrunch.html' );

    my $EM = HTML::ExtractMeta->new( html => $html );

    is( $EM->title,       "The 10 Best iOS And Android Games Of 2012", 'get_title' );
    is( $EM->description, "Editor's note: Stephen Danos is the associate editor for the mobile app discovery site Appolicious. This year’s most captivating games either pushed the envelope with state-of-the-art graphics and rich narratives, or perf...
    is( $EM->url,         "http://techcrunch.com/2012/12/29/the-10-best-ios-and-android-games-of-2012/", 'get_url' );
    is( $EM->image_url,   "http://tctechcrunch2011.files.wordpress.com/2012/12/app-stores.jpg?w=136", 'get_image_url' );
    is( $EM->site_name,   "TechCrunch", 'get_site_name' );
    is( $EM->type,        "article", 'get_type' );

    is_deeply( $EM->keywords, [], 'get_keywords' );
}

{
    my $html = read_text( $FindBin::Bin . '/html/wired.html' );

    my $EM = HTML::ExtractMeta->new( html => $html );

    ok( $EM->title        eq "Pixar Animator Dreams Up a New Superhero \x{2014} For Each Day of the Year", 'get_title' );
    ok( $EM->description  eq "Most people think losing 10 pounds is an ambitious New Year\'s resolution, but Pixar artist Everett Downing set out to create 365 brand-new superheroes in one year. Downing has brought iconic characters to life in classi...
    ok( $EM->url          eq "http://www.wired.com/design/2012/12/365-superheroes/", 'get_url' );
    ok( $EM->image_url    eq "http://www.wired.com/design/wp-content/uploads/2012/12/365-supers-wired-design-350x208.jpg", 'get_image_url' );
    ok( $EM->locale       eq "en_US", 'get_locale' );
    ok( $EM->author       eq "Joseph Flaherty", 'get_author' );
    ok( $EM->site_name    eq "Wired Design", 'get_site_name' );
    ok( $EM->type         eq "article", 'get_type' );

    is_deeply( $EM->authors, ['Joseph Flaherty', '@josephflaherty'], 'get_authors' );
}

{
    my $html = read_text( $FindBin::Bin . '/html/cnn.html' );

    my $EM = HTML::ExtractMeta->new( html => $html );

    ok( $EM->title       eq "Charter bus skids on ice, kills 9 in Oregon", 'get_title' );
    ok( $EM->description eq "A bus in northern Oregon skidded on ice, crashed through a guardrail and tumbled down an embankment Sunday, killing nine people.", 'get_description' );
    ok( $EM->url         eq "http://www.cnn.com/2012/12/30/us/oregon-bus-crash/index.html", 'get_url' );
    ok( $EM->image_url   eq "http://i2.cdn.turner.com/cnn/dam/assets/121230105427-oregon-bus-crash-story-top.jpg", 'get_image_url' );
    ok( $EM->locale      eq "en-US", 'get_locale' );
    ok( $EM->author      eq "CNN Staff", 'get_author' );
    ok( $EM->site_name   eq "CNN", 'get_site_name' );
    ok( $EM->type        eq "article", 'get_type' );

    is_deeply( $EM->authors, ['CNN Staff', '@CNNI'], 'get_authors' );
    is_deeply( $EM->keywords, [], 'get_keywords' );
}

{
    my $html = read_text( $FindBin::Bin . '/html/washingtonpost.html' );

    my $EM = HTML::ExtractMeta->new( html => $html );

    ok( $EM->title       eq "Officials: Obama to nominate Hagel for Defense, Brennan for CIA", 'get_title' );
    ok( $EM->description eq "Announcement of the two major appointments expected Monday.", 'get_description' );
    ok( $EM->locale      eq "en-US", 'get_locale' );
    ok( $EM->author      eq "Scott Wilson", 'get_author' );
    ok( $EM->type        eq "article", 'get_type' );
    ok( $EM->url         eq "http://www.washingtonpost.com/politics/officials-obama-to-nominate-hagel-for-defense-brennan-for-cia/2013/01/07/22db7d4e-58c2-11e2-beee-6e38f5215402_story.html", 'get_url' );

    is_deeply( $EM->keywords, ['president obama', 'obama hagel', 'obama brennan', 'white house 2012', 'white house transition', 'obama cabinet', 'democrats', 'republicans', 'inauguration', '2013 white house', '2013 cabinet', 'petraeus', 'cia', 'count...
}

{
    my $html = read_text( $FindBin::Bin . '/html/tv2.html' );