Commit | Line | Data |
598e59ee |
1 | use strict; |
2 | use warnings; |
3 | |
8edd9b70 |
4 | use FindBin; |
5 | use lib "$FindBin::Bin/lib"; |
d9d04ded |
6 | use Catalyst::Test 'TestApp', {default_host => 'default.com'}; |
7 | use Catalyst::Request; |
d003ff83 |
8 | use HTTP::Request::Common; |
8edd9b70 |
9 | |
0b9d5bf4 |
10 | use Test::More; |
8edd9b70 |
11 | |
6cf9bf47 |
12 | content_like('/',qr/root/,'content check'); |
13 | action_ok('/','Action ok ok','normal action ok'); |
14 | action_redirect('/engine/response/redirect/one','redirect check'); |
15 | action_notfound('/engine/response/status/s404','notfound check'); |
901991e6 |
16 | |
17 | # so we can see the default test name |
18 | action_ok('/'); |
19 | |
d9d04ded |
20 | contenttype_is('/action/local/one','text/plain','Contenttype check'); |
21 | |
f23f1634 |
22 | ### local_request() was not setting response base from base href |
23 | { |
24 | my $response = request('/base_href_test'); |
25 | is( $response->base, 'http://www.example.com/', 'response base set from base href'); |
26 | } |
27 | |
d9d04ded |
28 | my $creq; |
29 | my $req = '/dump/request'; |
30 | |
31 | { |
32 | eval '$creq = ' . request($req)->content; |
33 | is( $creq->uri->host, 'default.com', 'request targets default host set via import' ); |
34 | } |
35 | |
36 | { |
37 | local $Catalyst::Test::default_host = 'localized.com'; |
38 | eval '$creq = ' . request($req)->content; |
39 | is( $creq->uri->host, 'localized.com', 'target host is mutable via package var' ); |
40 | } |
41 | |
42 | { |
43 | my %opts = ( host => 'opthash.com' ); |
44 | eval '$creq = ' . request($req, \%opts)->content; |
45 | is( $creq->uri->host, $opts{host}, 'target host is mutable via options hashref' ); |
46 | } |
0b9d5bf4 |
47 | |
d003ff83 |
48 | { |
88e5a8b0 |
49 | my $response = request( POST( '/bodyparams', { override => 'this' } ) )->content; |
d003ff83 |
50 | is($response, 'that', 'body param overridden'); |
51 | } |
52 | |
a7d2a530 |
53 | { |
88e5a8b0 |
54 | my $response = request( POST( '/bodyparams/no_params' ) )->content; |
a7d2a530 |
55 | is($response, 'HASH', 'empty body param is hashref'); |
56 | } |
57 | |
0b9d5bf4 |
58 | done_testing; |
59 | |