t/live_component_controller_moose.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 BEGIN {
   6     if (eval 'require Moose; 1') {
   7         plan tests => 2;
   8     }
   9     else {
  10         plan skip_all => 'Moose is required for this test';
  11     }
  12 }
  13
  14 use FindBin;
  15 use lib "$FindBin::Bin/lib";
  16
  17 use Catalyst::Test 'TestApp';
  18
  19 {
  20     my $response = request('http://localhost/moose/the_answer');
  21     ok($response->is_success);
  22     is($response->content, 'the meaning of life: 42', 'attr defaults + BUILD works correctly');
  23 }