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

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

use DynamicAppDemo;

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

ok $model;
isa_ok $model, 'SomeModelClass';
is $model->say_hello('world'), 'Hello world';
Commit	Line	Data
7d26c84b	1	use strict;
	2	use warnings;
	3	use Test::More tests => 3;
	4
	5	use DynamicAppDemo;
	6
	7	# Naughty, should make an app instance.
	8	my $model = DynamicAppDemo->model('One');
	9
	10	ok $model;
	11	isa_ok $model, 'SomeModelClass';
	12	is $model->say_hello('world'), 'Hello world';
	13