The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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( {
                _log => Catalyst::Log->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') };
TODO: {
   local $TODO = 'we appear to have a lazy bug';
   if ($@) {
      fail('$context->hello_notlazy');
      warn $@;
   }
}

done_testing;