1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
package Internal::Fixture::HTTPList;
use 5.010001;
use strict;
use warnings;
use parent 'Test::FITesque::Fixture';
use Test::More ;
use Test::Deep ;
sub http_req_res_list_unauthenticated : Test : Plan(6) {
my ($self, $args) = @_;
note($args->{'-special'}->{description});
# TODO: Doesn't seem that hard to use Test::Deep for this after all
my @pairs = @{$args->{'-special'}->{'http-pairs'}};
is(scalar @pairs, 2, 'There are two request-response pairs');
is($pairs[0]->{request}->method, 'PUT', 'First method is PUT');
is($pairs[1]->{request}->method, 'GET', 'Second method is GET');
is($pairs[0]->{response}->code, '201', 'First code is 201');
is($pairs[1]->{response}->content_type, 'text/turtle', 'Second ctype is turtle');
cmp_deeply([$pairs[1]->{response}->header('Accept-Post')], bag("text/turtle", "application/ld+json"), 'Response header field value bag comparison');
}
1;
# # TODO: This should really mock an HTTP server, then it would be something like
# sub http_req_res_list_unauthenticated : Test : Plan(2) {
# my ($self, $args) = @_;
# for (my $i=0; $i <= $#{$args->{'http-requests'}}; $i++) {
# subtest "Request-response #" . $i+1 => sub {
# my $ua = LWP::UserAgent->new;
# my $response = $ua->request( ${$args->{'http-requests'}}[$i] );
# ## Here, compare $response and $ua->request( ${$args->{'http-responses'}}[$i] to see that they match
# };
# }
# };
|
