diff --git a/t/Macro/PageUrl.t b/t/Macro/PageUrl.t new file mode 100644 index 000000000..a8d5461ed --- /dev/null +++ b/t/Macro/PageUrl.t @@ -0,0 +1,48 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2006 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::Macro; +use WebGUI::Session; +use WebGUI::Macro_Config; +use Data::Dumper; + +use Test::More; # increment this value for each test you create + +my $session = WebGUI::Test->session; + +unless ($session->config->get('macros')->{'PageUrl'}) { + Macro_Config::insert_macro($session, 'PageUrl', 'PageUrl'); +} + + +my $macroText = '^PageUrl;'; +my $output; + +plan tests => 2; + +$output = $macroText; + +my $homeAsset = WebGUI::Asset->getDefault($session); + +##Make the homeAsset the default asset in the session. +$session->asset($homeAsset); + +WebGUI::Macro::process($session, \$output); +is($output, $session->url->gateway.$homeAsset->get('url'), 'fetching url for site default asset'); + +TODO: { + local $TODO = "Tests to make later"; + ok(0, 'Fetch url from locally made asset with known url'); +}