81 lines
2.6 KiB
Perl
81 lines
2.6 KiB
Perl
#-------------------------------------------------------------------
|
|
# 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'],
|
|
);
|
|
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'
|
|
);
|