Commit | Line | Data |
---|---|---|
2167982f | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use FindBin; | |
5 | use lib "$FindBin::Bin/../lib"; | |
6 | ||
2167982f | 7 | use Test::More tests => 2; |
8 | use Catalyst::Test 'TestApp'; | |
9 | ||
10 | { | |
11 | my $response = request('http://localhost/moose/get_attribute'); | |
12 | ok($response->is_success); | |
13 | is($response->content, '42', 'attribute default values get set correctly'); | |
14 | } |