diff _test/Test/Web/Application.pm @ 61:8d0ae27d15c1

minor changes
author wizard
date Wed, 10 Mar 2010 16:41:46 +0300
parents b0c068da93ac
children 76b878ad6596
line wrap: on
line diff
--- a/_test/Test/Web/Application.pm	Tue Mar 09 19:47:39 2010 +0300
+++ b/_test/Test/Web/Application.pm	Wed Mar 10 16:41:46 2010 +0300
@@ -26,6 +26,12 @@
 	return 1;
 };
 
+test SaveXml => sub {
+	my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
+	
+	warn $instance->xml;	
+};
+
 package Test::Web::Application::Instance;
 use base qw(IMPL::Web::Application);