--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_test/Test/Web/Application.pm	Tue Mar 09 19:47:39 2010 +0300
@@ -0,0 +1,44 @@
+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
+}
+
+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;
+};
+
+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;
\ No newline at end of file