diff options
Diffstat (limited to 't/status.t')
-rw-r--r-- | t/status.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/status.t b/t/status.t new file mode 100644 index 0000000..42d7465 --- /dev/null +++ b/t/status.t @@ -0,0 +1,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"); |