We appear to have a bug where if lazy => 1 isn't set an exception

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

diff --git a/t/aggregate/unit_core_ctx_attr.t b/t/aggregate/unit_core_ctx_attr.t
new file mode 100644 (file)
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;
+