t/04_dynamicmodel.t

   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