This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update HTTP-Tiny to CPAN version 0.033
[perl5.git] / cpan / HTTP-Tiny / t / 001_api.t
1 #!perl
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 2;
7 use HTTP::Tiny;
8
9 my @accessors = qw(
10   agent default_headers local_address max_redirect max_size proxy no_proxy timeout SSL_options verify_SSL cookie_jar
11 );
12 my @methods   = qw(
13   new get head put post delete post_form request mirror www_form_urlencode
14 );
15
16 my %api;
17 @api{@accessors} = (1) x @accessors;
18 @api{@methods} = (1) x @methods;
19
20 can_ok('HTTP::Tiny', @methods, @accessors);
21
22 my @extra =
23   grep {! $api{$_} }
24   grep { $_ !~ /\A_/ }
25   grep {; no strict 'refs'; *{"HTTP::Tiny::$_"}{CODE} }
26   sort keys %HTTP::Tiny::;
27
28 ok( ! scalar @extra, "No unexpected subroutines defined" )
29   or diag "Found: @extra";