Allow models and components to specify the names of any components they generate

[catagits/Catalyst-Runtime.git] / t / aggregate / unit_core_component_generating.t

diff --git a/t/aggregate/unit_core_component_generating.t b/t/aggregate/unit_core_component_generating.t
new file mode 100644 (file)
index 0000000..a518fce
--- /dev/null
+++ b/t/aggregate/unit_core_component_generating.t
@@ -0,0 +1,10 @@
+use Test::More tests => 3;
+use strict;
+use warnings;
+
+use lib 't/lib';
+use TestApp;
+
+ok(TestApp->model('Generating'), 'knows about generating model');
+ok(TestApp->model('Generated'), 'knows about the generated model');
+is(TestApp->model('Generated')->foo, 'foo', 'can operate on generated model');