Mercurial > pub > Impl
view _test/Test/Web/Application.pm @ 163:6ce1f052b90a
temp commit
author | wizard |
---|---|
date | Tue, 15 Mar 2011 02:32:42 +0300 |
parents | 76b878ad6596 |
children | 4267a2ac3d46 |
line wrap: on
line source
package Test::Web::Application::Instance; package Test::Web::Application; use strict; use base 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 base 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;