oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Module use, and cache updates.

Browse source
This commit is contained in:
Colin Kuskie 2010-05-09 18:14:27 -07:00
parent 96108ffc96
commit 95fe1e6d52
2 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
View file

@ -15,6 +15,7 @@ use HTML::Entities;
use WebGUI::Exception; use WebGUI::Exception;
use WebGUI::HTML; use WebGUI::HTML;
use WebGUI::International; use WebGUI::International;
use LWP::UserAgent;
use Moose; use Moose;
use WebGUI::Definition::Asset; use WebGUI::Definition::Asset;

11
t/Asset/Wobject/SyndicatedContent.t
View file

@ -24,7 +24,6 @@ use Test::More tests => 22; # increment this value for each test you create
use Test::Deep; use Test::Deep;
use WebGUI::Asset::Wobject::SyndicatedContent; use WebGUI::Asset::Wobject::SyndicatedContent;
use XML::FeedPP; use XML::FeedPP;
use WebGUI::Cache;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
my %var; my %var;
@ -153,12 +152,11 @@ $syndicated_content->update({
hasTerms => 'WebGUI', hasTerms => 'WebGUI',
}); });
my $cache = WebGUI::Cache->new($session, $tbbUrl, 'RSS');
open my $rssFile, '<', WebGUI::Test->getTestCollateralPath('tbb.rss') open my $rssFile, '<', WebGUI::Test->getTestCollateralPath('tbb.rss')
or die "Unable to get RSS file"; or die "Unable to get RSS file";
my $rssContent = do { local $/; <$rssFile>; }; my $rssContent = do { local $/; <$rssFile>; };
close $rssFile; close $rssFile;
$cache->set($rssContent, 60); $session->cache->set($tbbUrl.'RSS', $rssContent, 60);
my $filteredFeed = $syndicated_content->generateFeed(); my $filteredFeed = $syndicated_content->generateFeed();
@ -172,7 +170,7 @@ cmp_deeply(
'generateFeed: filters items based on the terms being in title, or description' 'generateFeed: filters items based on the terms being in title, or description'
); );
$cache->delete; $session->cache->clear;
#################################################################### ####################################################################
# #
@ -189,18 +187,17 @@ $syndicated_content->update({
maxHeadlines => 50, maxHeadlines => 50,
}); });
my $cache = WebGUI::Cache->new($session, $oncpUrl, 'RSS');
open my $rssFile, '<', WebGUI::Test->getTestCollateralPath('oncp.xml') open my $rssFile, '<', WebGUI::Test->getTestCollateralPath('oncp.xml')
or die "Unable to get RSS file: oncp.xml"; or die "Unable to get RSS file: oncp.xml";
my $rssContent = do { local $/; <$rssFile>; }; my $rssContent = do { local $/; <$rssFile>; };
close $rssFile; close $rssFile;
$cache->set($rssContent, 60); $session->cache->set($oncpUrl.'RSS', $rssContent, 60);
my $oddFeed1 = $syndicated_content->generateFeed(); my $oddFeed1 = $syndicated_content->generateFeed();
my @oddItems = $oddFeed1->get_item(); my @oddItems = $oddFeed1->get_item();
is (@oddItems, 13, 'feed has items even without pubDates or links'); is (@oddItems, 13, 'feed has items even without pubDates or links');
$cache->delete; $session->cache->clear;