99 lines
3.1 KiB
Perl
99 lines
3.1 KiB
Perl
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2012 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 strict;
|
|
use warnings;
|
|
|
|
use WebGUI::Test;
|
|
use WebGUI::Session;
|
|
use WebGUI::Asset::Template;
|
|
use WebGUI::Asset::Snippet;
|
|
|
|
#The goal of this test is to find hard coded extras paths in templates or in
|
|
#the extraHeadTags of any assets.
|
|
|
|
use Test::More; # increment this value for each test you create
|
|
my $numTests = 0;
|
|
|
|
my $session = WebGUI::Test->session;
|
|
|
|
my $hardcodedExtras = qr!(?:href|src)=.\^?/[(;]?extras/!;
|
|
|
|
# put your tests here
|
|
|
|
my @hardcodedExtras;
|
|
|
|
my $getATemplate = WebGUI::Asset::Template->getIsa($session);
|
|
TEMPLATE: while (my $templateAsset = $getATemplate->()) {
|
|
my $template = $templateAsset->get('template');
|
|
next TEMPLATE unless $template;
|
|
if ($template =~ m!$hardcodedExtras! ) {
|
|
push @hardcodedExtras, {
|
|
url => $templateAsset->getUrl,
|
|
id => $templateAsset->getId,
|
|
title => $templateAsset->getTitle,
|
|
type => 'Template',
|
|
}
|
|
}
|
|
foreach my $attachment (@{ $templateAsset->getAttachments }) {
|
|
if ($attachment->{url} =~ m!$hardcodedExtras! ) {
|
|
push @hardcodedExtras, {
|
|
url => $templateAsset->getUrl,
|
|
id => $templateAsset->getId,
|
|
title => $templateAsset->getTitle,
|
|
type => 'Template',
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
my $getASnippet = WebGUI::Asset::Snippet->getIsa($session);
|
|
SNIPPET: while (my $snippetAsset = $getASnippet->()) {
|
|
my $snippet = $snippetAsset->get('snippet');
|
|
next SNIPPET unless $snippet;
|
|
if ($snippet =~ m!$hardcodedExtras! ) {
|
|
push @hardcodedExtras, {
|
|
url => $snippetAsset->getUrl,
|
|
id => $snippetAsset->getId,
|
|
title => $snippetAsset->getTitle,
|
|
type => 'Snippet',
|
|
}
|
|
}
|
|
}
|
|
|
|
my $getAnAsset = WebGUI::Asset->getIsa($session);
|
|
ASSET: while (my $asset = $getAnAsset->()) {
|
|
my $headTags = $asset->get('extraHeadTags');
|
|
next ASSET unless $headTags;
|
|
if ($headTags =~ m!$hardcodedExtras! ) {
|
|
push @hardcodedExtras, {
|
|
url => $asset->getUrl,
|
|
id => $asset->getId,
|
|
title => $asset->getTitle,
|
|
type => 'Asset',
|
|
}
|
|
}
|
|
}
|
|
|
|
$numTests = scalar @hardcodedExtras;
|
|
|
|
if ($numTests) {
|
|
plan tests => $numTests;
|
|
}
|
|
else {
|
|
plan tests => 1;
|
|
ok(1, 'All assets pass');
|
|
}
|
|
|
|
foreach my $template ( @hardcodedExtras ) {
|
|
fail(
|
|
sprintf "%s with hardcoded extras url: %s, id: %s, url: %s", @{ $template }{qw/type title id url/}
|
|
);
|
|
}
|