X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_ctx_attr.t;fp=t%2Faggregate%2Funit_core_ctx_attr.t;h=be54c316ee5abda35282af8d1566f662928a4126;hb=950c7852982926188a3e716dcb52c3e1a9510936;hp=0000000000000000000000000000000000000000;hpb=7aba3b2defff97a59aebafc5fc6f422a9d4f5439;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/unit_core_ctx_attr.t b/t/aggregate/unit_core_ctx_attr.t
new file mode 100644
index 0000000..be54c31
--- /dev/null
+++ b/t/aggregate/unit_core_ctx_attr.t
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use lib "$FindBin::Bin/../lib";
+use Test::More;
+use URI;
+
+use_ok('TestApp');
+
+my $request = Catalyst::Request->new( {
+                base => URI->new('http://127.0.0.1/foo')
+              } );
+my $dispatcher = TestApp->dispatcher;
+my $context = TestApp->new( {
+                request => $request,
+                namespace => 'yada',
+              } );
+
+is(        $context->hello_lazy,    'hello there', '$context->hello_lazy');
+eval { is( $context->hello_notlazy, 'hello there', '$context->hello_notlazy') };
+if ($@) {
+   fail('$context->hello_notlazy');
+   warn $@;
+}
+
+done_testing;
+