blob: 42d746573ba5cc71e489e59f2fd96adfa8526378 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
use strict;
use warnings;
use Test::More;
plan tests => 10;
use HTTP::Status qw(:constants :is status_message);
is(HTTP_OK, 200);
ok(is_info(HTTP_CONTINUE));
ok(is_success(HTTP_ACCEPTED));
ok(is_error(HTTP_BAD_REQUEST));
ok(is_client_error(HTTP_I_AM_A_TEAPOT));
ok(is_redirect(HTTP_MOVED_PERMANENTLY));
ok(is_redirect(HTTP_PERMANENT_REDIRECT));
ok(!is_success(HTTP_NOT_FOUND));
is(status_message(0), undef);
is(status_message(200), "OK");
|