Mercurial > pub > Impl

comparison _test/Test/Web/Application.pm @ 63:76b878ad6596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added serialization support for the IMPL::Object::List More intelligent Exception message Fixed encoding support in the actions Improoved tests Minor fixes
author wizard
date Mon, 15 Mar 2010 02:38:09 +0300
parents 8d0ae27d15c1
children 4267a2ac3d46
comparison
equal deleted inserted replaced
62:c64bd1bf727d 63:76b878ad6596
8 8
9 __PACKAGE__->PassThroughArgs; 9 __PACKAGE__->PassThroughArgs;
10 10
11 sub CTOR { 11 sub CTOR {
12 # simulate CGI environment 12 # simulate CGI environment
13
14 $ENV{PATH_TRANSLATED} = "Resources/simple.tt";
13 } 15 }
14 16
15 test SpawnApp => sub { 17 test SpawnApp => sub {
16 my $instance = spawn Test::Web::Application::Instance('Resources/app.xml'); 18 my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
17 19
27 }; 29 };
28 30
29 test SaveXml => sub { 31 test SaveXml => sub {
30 my $instance = spawn Test::Web::Application::Instance('Resources/app.xml'); 32 my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
31 33
32 warn $instance->xml; 34 $instance->xml or failed "xml property is invalid";
35 };
36
37 test Run => sub {
38 my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
39 $instance->Run();
33 }; 40 };
34 41
35 package Test::Web::Application::Instance; 42 package Test::Web::Application::Instance;
36 use base qw(IMPL::Web::Application); 43 use base qw(IMPL::Web::Application);
37 44