# -*- mode: Perl; -*-
package HttpRequestTest;
use parent qw(Eve::Test);
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Eve::HttpRequest;
sub setup : Test(setup) {
my $self = shift;
$self->{'http_request'} = Eve::HttpRequest->new();
}
sub test_methods : Test(4) {
my $self = shift;
my $method_list = ['get_uri', 'get_method', 'get_parameter', 'get_cookie'];
for my $method_name (@{$method_list}) {
throws_ok(
sub {
$self->{'http_request'}->$method_name();
},
qr/Eve::Error::NotImplemented/);
}
}
1;