view _test/Test/Web/Application.pm @ 104:196bf443b5e1

DOM::Schema RC0 inflators support, validation and some other things, Minor and major fixes almost for everything. A 'Source' property of the ValidationErrors generated from a NodeSet or a NodeList is subject to change in the future.
author wizard
date Tue, 11 May 2010 02:42:59 +0400
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;