9 use Test::More tests => 4;
11 HTTP::AnyUA->register_backend(Mock => '+MockBackend');
13 my $any_ua = HTTP::AnyUA->new(ua => 'Mock');
14 my $backend = $any_ua->backend;
16 my $url = 'http://acme.tld/';
21 my $resp = $any_ua->post_form($url, $form);
23 my $request = ($backend->requests)[-1];
25 is $request->[0], 'POST', 'post_form request method is POST';
26 is $request->[1], $url, 'post_form request URL is correct';
27 is $request->[2]{content}, 'baz=42&foo=bar', 'post_form request body is correct';
28 is $request->[2]{headers}{'content-type'}, 'application/x-www-form-urlencoded', 'post_form request content-type header is correct';