Mercurial > pub > Impl
view _test/Test/Web/Application.pm @ 245:7c517134c42f
Added Unsupported media type Web exception
corrected resourceLocation setting in the resource
Implemented localizable resources for text messages
fixed TT view scopings, INIT block in controls now sets globals correctly.
author | sergey |
---|---|
date | Mon, 29 Oct 2012 03:15:22 +0400 |
parents | 4d0e1962161c |
children |
line wrap: on
line source
package Test::Web::Application::Instance; package Test::Web::Application; use strict; use parent qw(IMPL::Test::Unit); use IMPL::Test qw(test failed); require IMPL::Web::Application; __PACKAGE__->PassThroughArgs; sub CTOR { # simulate CGI environment $ENV{PATH_TRANSLATED} = "Resources/simple.tt"; } test SpawnApp => sub { my $instance = spawn Test::Web::Application::Instance('Resources/app.xml'); return 1; }; test ActivateOnDemand => sub { my $instance = spawn Test::Web::Application::Instance('Resources/app.xml'); my $ds = $instance->dataSource; return 1; }; test SaveXml => sub { my $instance = spawn Test::Web::Application::Instance('Resources/app.xml'); $instance->xml or failed "xml property is invalid"; }; test Run => sub { my $instance = spawn Test::Web::Application::Instance('Resources/app.xml'); $instance->Run(); }; package Test::Web::Application::Instance; use parent qw(IMPL::Web::Application); __PACKAGE__->PassThroughArgs; use IMPL::Class::Property; BEGIN { public property name => prop_all; public property options => prop_all; public property dataSource => prop_all; public property securityMod => prop_all; } 1;