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

Fix a typo in the PageUrl POD.

Browse source 
Add tests for the new query argument to the PageUrl macro.
This commit is contained in:
Colin Kuskie 2008-07-13 02:03:21 +00:00
parent 0955679ea1
commit 81bdc7640c
2 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Macro/PageUrl.pm
View file

@ -21,7 +21,7 @@ Package WebGUI::Macro::Page
Macro for displaying the url for the current asset.
=head2 process ( $session, $url )
=head2 process ( $session, $url, $query )
process is really a wrapper around $session->url->page();

14
t/Macro/PageUrl.t
View file

@ -20,7 +20,7 @@ use Test::More; # increment this value for each test you create
my $session = WebGUI::Test->session;
my $numTests = 5;
my $numTests = 7;
$numTests += 1; #For the use_ok
plan tests => $numTests;
@ -49,6 +49,12 @@ is($output, $session->url->gateway.$homeAsset->get('url'), 'fetching url for sit
$output = WebGUI::Macro::PageUrl::process($session, '/sub/page');
is($output, $session->url->gateway.$homeAsset->get('url').'/sub/page', 'fetching url for site default asset with sub url');
$output = WebGUI::Macro::PageUrl::process($session, '/sub/page', 'query=this');
is($output, $session->url->gateway.$homeAsset->get('url').'/sub/page?query=this', 'Using the query argument to the macro');
$output = WebGUI::Macro::PageUrl::process($session, '', 'query=this');
is($output, $session->url->gateway.$homeAsset->get('url').'?query=this', 'Using the query argument to the macro with no URL fragment');
$session->setting->set('preventProxyCache', 1);
$output = WebGUI::Macro::PageUrl::process($session);
@ -57,11 +63,9 @@ like($output, qr{\?noCache=\d+:\d+$}, 'checking the cache settings in the page U
$output = WebGUI::Macro::PageUrl::process($session, '/sub/page');
like($output, qr{/sub/page\?noCache=\d+:\d+$}, 'checking the cache settings in the URL are at the end of the page URL');
}
$output = WebGUI::Macro::PageUrl::process($session, '/sub/page', 'query=this');
like($output, qr{/sub/page\?noCache=\d+:\d+;query=this$}, 'checking that the query arg works with preventProxyCache');
TODO: {
local $TODO = "Tests to make later";
ok(0, 'Fetch url from locally made asset with known url');
}
END {