[catagits/CatalystX-DynamicComponent.git] / t / 04_dynamicmodel.t

use strict;
use warnings;
use Test::More tests => 6;

use FindBin qw/$Bin/;
use lib "$Bin/lib";

use DynamicAppDemo;

# Naughty, should make an app instance.
my $model = DynamicAppDemo->model('One');

ok $model;
isa_ok $model, 'SomeModelClass';
is_deeply $model->say_hello({name => 'world'}), { type => 'say_hello_response', body => 'Hello world' };

ok(DynamicAppDemo->model('Two'), 'Have model Two');

ok(!DynamicAppDemo->model('Three'), 'No model Three');

ok(!DynamicAppDemo->model('Four'), 'No model Four');
Commit	Line	Data
7d26c84b	1	use strict;
7d26c84b	2	use warnings;
f5cb8a51	3	use Test::More tests => 6;
7d26c84b	4
104abdae	5	use FindBin qw/$Bin/;
	6	use lib "$Bin/lib";
	7
7d26c84b	8	use DynamicAppDemo;
	9
	10	# Naughty, should make an app instance.
	11	my $model = DynamicAppDemo->model('One');
	12
	13	ok $model;
	14	isa_ok $model, 'SomeModelClass';
3765b9ee	15	is_deeply $model->say_hello({name => 'world'}), { type => 'say_hello_response', body => 'Hello world' };
7d26c84b	16
f5cb8a51	17	ok(DynamicAppDemo->model('Two'), 'Have model Two');
	18
	19	ok(!DynamicAppDemo->model('Three'), 'No model Three');
	20
	21	ok(!DynamicAppDemo->model('Four'), 'No model Four');
	22