Mercurial > pub > Impl

view _test/Test/Web/AutoLocator.pm @ 359:833e663796c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TTView: added view variable to pass rendering context between controls TTView: display function renamed to display_for WebResource: resources now marked with roles for searching a desired resource by a role in the resource chain
author sergey
date Mon, 25 Nov 2013 02:19:31 +0400
parents 5c82eec23bb6
children
line wrap: on
line source

package Test::Web::AutoLocator;
use strict;

use IMPL::Test qw(test assert);
use URI();

use IMPL::declare {
	require => {
		'Locator' => 'IMPL::Web::AutoLocator'
	},
	base => {
		'IMPL::Test::Unit' => '@_'
	}
};

test TestCreation => sub {
	my $location = Locator->new(base => 'http://bugs.company.org', view => "cgi");
	
	my $url = $location->show_bug({id => 100});
	assert( $url->url eq "http://bugs.company.org/show_bug.cgi?id=100", $url->url );
	
	$url = $location->SetView(undef)->help->CreateBug->HowTo;
	assert( $url->url eq "http://bugs.company.org/help/CreateBug/HowTo", $url->url );
};

1;