Blame t/status-old.t

Packit a09cf7
use strict;
Packit a09cf7
use warnings;
Packit a09cf7
Packit a09cf7
use Test::More;
Packit a09cf7
plan tests => 8;
Packit a09cf7
Packit a09cf7
use HTTP::Status;
Packit a09cf7
Packit a09cf7
is(RC_OK, 200);
Packit a09cf7
Packit a09cf7
ok(is_info(RC_CONTINUE));
Packit a09cf7
ok(is_success(RC_ACCEPTED));
Packit a09cf7
ok(is_error(RC_BAD_REQUEST));
Packit a09cf7
ok(is_redirect(RC_MOVED_PERMANENTLY));
Packit a09cf7
Packit a09cf7
ok(!is_success(RC_NOT_FOUND));
Packit a09cf7
Packit a09cf7
is(status_message(0), undef);
Packit a09cf7
is(status_message(200), "OK");