Mercurial > pub > Impl

diff _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
line wrap: on
line diff
--- a/_test/Test/Web/Application.pm	Fri Mar 12 16:23:46 2010 +0300
+++ b/_test/Test/Web/Application.pm	Mon Mar 15 02:38:09 2010 +0300
@@ -10,6 +10,8 @@
 
 sub CTOR {
 	# simulate CGI environment
+	
+	$ENV{PATH_TRANSLATED} = "Resources/simple.tt";
 }
 
 test SpawnApp => sub {
@@ -29,7 +31,12 @@
 test SaveXml => sub {
 	my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
 	
-	warn $instance->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;