t/aggregate/unit_core_ctx_attr.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use lib "$FindBin::Bin/../lib";
   5 use Test::More;
   6 use URI;
   7
   8 use_ok('TestApp');
   9
  10 my $request = Catalyst::Request->new( {
  11                 base => URI->new('http://127.0.0.1/foo')
  12               } );
  13 my $dispatcher = TestApp->dispatcher;
  14 my $context = TestApp->new( {
  15                 request => $request,
  16                 namespace => 'yada',
  17               } );
  18
  19 is(        $context->hello_lazy,    'hello there', '$context->hello_lazy');
  20 eval { is( $context->hello_notlazy, 'hello there', '$context->hello_notlazy') };
  21 TODO: {
  22    local $TODO = 'we appear to have a lazy bug';
  23    if ($@) {
  24       fail('$context->hello_notlazy');
  25       warn $@;
  26    }
  27 }
  28
  29 done_testing;
  30