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

Forgot to add a test for Content/SiteIndex

Browse source
This commit is contained in:
Colin Kuskie 2010-01-29 16:41:39 -08:00
parent 21183eb10c
commit 4b4038d7d0
1 changed files with 83 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

83
t/Content/SiteIndex.t Normal file
View file

@ -0,0 +1,83 @@
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use FindBin;
use strict;
use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Session;
use WebGUI::Content::SiteIndex;
# load your modules here
use Test::More tests => 5; # increment this value for each test you create
use Test::Deep;
use XML::Simple;
my $session = WebGUI::Test->session;
# put your tests here
my $output = WebGUI::Content::SiteIndex::handler($session);
is $output, undef, 'no content returned unless sitemap.xml is requested';
$session->request->uri('/sitemap.xml');
$output = WebGUI::Content::SiteIndex::handler($session);
my $xmlData = XMLin($output,
KeepRoot => 1,
ForceArray => ['url'],
);
use Data::Dumper;
diag Dumper $xmlData;
my @actual_urls = map { $_->{loc} } @{ $xmlData->{urlset}->{url} };
my @expected_urls = map { $session->url->getSiteURL . '/' . $_ } qw{ home getting_started your_next_step the_latest_news tell_a_friend documentation site_map };
cmp_deeply(
\@actual_urls,
\@expected_urls,
'correct set of urls'
);
my $hiddenPage = WebGUI::Asset->getDefault($session)->addChild({
className => 'WebGUI::Asset::Wobject::Layout',
isHidden => 1,
title => 'seekrit hidden page',
url => 'hidden_page',
});
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->commit;
addToCleanup($versionTag);
$output = WebGUI::Content::SiteIndex::handler($session);
$xmlData = XMLin($output,
KeepRoot => 1,
ForceArray => ['url'],
);
cmp_deeply(
\@actual_urls,
\@expected_urls,
'hidden pages hidden'
);
$session->config->set('siteIndex', { showHiddenPages => 1} );
is $session->config->get('siteIndex')->{showHiddenPages}, 1, 'showHiddenPages set to true';
$output = WebGUI::Content::SiteIndex::handler($session);
$xmlData = XMLin($output,
KeepRoot => 1,
ForceArray => ['url'],
);
@actual_urls = map { $_->{loc} } @{ $xmlData->{urlset}->{url} };
@expected_urls = map { $session->url->getSiteURL . '/' . $_ } qw{ home getting_started your_next_step the_latest_news tell_a_friend documentation site_map hidden_page };
cmp_deeply(
\@actual_urls,
\@expected_urls,
'hidden pages hidden'
);