5 200 == RC_OK || print "not ";
8 is_success(RC_ACCEPTED) || print "not ";
11 is_error(RC_BAD_REQUEST) || print "not ";
14 is_redirect(RC_MOVED_PERMANENTLY) || print "not ";
17 is_success(RC_NOT_FOUND) && print "not ";
20 $mess = status_message(0);
22 defined $mess && print "not ";
25 $mess = status_message(200);
31 is_info(RC_CONTINUE) || print "not ";