view release on metacpan or  search on metacpan

t/04.status.t  view on Meta::CPAN

#!/usr/local/bin/perl
BEGIN
{
    use strict;
    use warnings;
    use lib './lib';
    use vars qw( $DEBUG );
    use Test2::V0;
    our $DEBUG = exists( $ENV{AUTHOR_TESTING} ) ? $ENV{AUTHOR_TESTING} : 0;
};

use strict;
use warnings;

BEGIN
{
#     use_ok( 'Apache2::API::Status', 'all' );
    use ok( 'Apache2::API::Status', qw( :all ) );
};

my $s = Apache2::API::Status->new;
isa_ok( $s => 'Apache2::API::Status' );

# for m in `egrep -E '^sub ([a-z]\w+)' ./lib/Apache2/API/Status.pm| awk '{ print $2 }'`; do echo "can_ok( \$s => '$m' );"; done
# or
# egrep -E '^sub ' ./lib/Apache2/API/Status.pm | perl -lnE 'my $m = [split(/\s+/, $_)]->[1]; say "can_ok( \$s, ''$m'' );"'
# perl -lnE '/^sub (?!init|[A-Z]|_)/ and say "can_ok( \$s, \''", [split(/\s+/, $_)]->[1], "\'' );"' ./lib/Apache2/API/Status.pm
can_ok( $s, 'convert_short_lang_to_long' );
can_ok( $s, 'is_info' );
can_ok( $s, 'is_success' );
can_ok( $s, 'is_redirect' );
can_ok( $s, 'is_error' );
can_ok( $s, 'is_client_error' );
can_ok( $s, 'is_server_error' );
can_ok( $s, 'status_message' );
can_ok( $s, 'supported_languages' );

subtest 'constants' => sub
{
    my $constants = [
        'HTTP_CONTINUE'                           => 100,
        'HTTP_SWITCHING_PROTOCOLS'                => 101,
        'HTTP_PROCESSING'                         => 102,
        'HTTP_EARLY_HINTS'                        => 103,
        'HTTP_OK'                                 => 200,
        'HTTP_CREATED'                            => 201,
        'HTTP_ACCEPTED'                           => 202,
        'HTTP_NON_AUTHORITATIVE'                  => 203,
        'HTTP_NO_CONTENT'                         => 204,
        'HTTP_RESET_CONTENT'                      => 205,
        'HTTP_PARTIAL_CONTENT'                    => 206,
        'HTTP_MULTI_STATUS'                       => 207,
        'HTTP_ALREADY_REPORTED'                   => 208,
        'HTTP_IM_USED'                            => 226,
        'HTTP_MULTIPLE_CHOICES'                   => 300,
        'HTTP_MOVED_PERMANENTLY'                  => 301,
        'HTTP_MOVED_TEMPORARILY'                  => 302,
        'HTTP_SEE_OTHER'                          => 303,
        'HTTP_NOT_MODIFIED'                       => 304,
        'HTTP_USE_PROXY'                          => 305,
        'HTTP_TEMPORARY_REDIRECT'                 => 307,
        'HTTP_PERMANENT_REDIRECT'                 => 308,
        'HTTP_BAD_REQUEST'                        => 400,
        'HTTP_UNAUTHORIZED'                       => 401,
        'HTTP_PAYMENT_REQUIRED'                   => 402,
        'HTTP_FORBIDDEN'                          => 403,