view release on metacpan or  search on metacpan

t/01_unit.t  view on Meta::CPAN

subtest 'calculate_bower_index', sub {
    my $client = setup();
    local *{'LWP::UserAgent::post'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->calculate_bower_index();
    is( $resp->code, 200, 'request succeeded' );
};

subtest 'calculate_helm_chart_index', sub {
    my $client = setup();
    local *{'LWP::UserAgent::post'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->calculate_helm_chart_index();
    is( $resp->code, 200, 'request succeeded' );
};

subtest 'calculate_cran_repository_metadata', sub {
    my $client = setup();
    local *{'LWP::UserAgent::post'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->calculate_cran_repository_metadata();
    is( $resp->code, 200, 'request succeeded' );
};

subtest 'calculate_conda_repository_metadata', sub {
    my $client = setup();
    local *{'LWP::UserAgent::post'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->calculate_conda_repository_metadata();
    is( $resp->code, 200, 'request succeeded' );
};

subtest 'system_info', sub {
    my $client = setup();
    local *{'LWP::UserAgent::get'} = sub {
        return bless(
            {
                '_request' => bless(
                    {
                        '_uri' =>
                          bless( do { \( my $o = "http://example.com:7777/artifactory/api/system" ) }, 'URI::http' ),
                    },
                    'HTTP::Request'
                )
            },
            'HTTP::Response'
        );
    };
    my $resp            = $client->system_info();
    my $url_in_response = $resp->request->uri;
    like( $url_in_response, qr|/api/system|, 'requsted URL looks sane' );
};

subtest 'verify_connection', sub {
    my $client = setup();
    my %args   = (
        endpoint => 'http://localhost/foobar',
        username => 'admin',
        password => 'password'
    );
    local *{'LWP::UserAgent::post'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->verify_connection(%args);
    is( $resp->code, 200, 'verify_connection succeeded' );
};

subtest 'system_health_ping', sub {
    my $client = setup();

    local *{'LWP::UserAgent::get'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->system_health_ping();
    is( $resp->code, 200, 'request succeeded' );
};

subtest 'general_configuration', sub {
    my $client = setup();

    local *{'LWP::UserAgent::get'} = sub {
        return bless(
            {
                '_request' => bless(
                    {
                        '_uri' => bless(
                            do { \( my $o = "http://example.com:7777/artifactory/api/system/configuration" ) },
                            'URI::http'
                        ),
                    },
                    'HTTP::Request'
                )
            },
            'HTTP::Response'
        );
    };
    my $resp            = $client->general_configuration();
    my $url_in_response = $resp->request->uri;
    like( $url_in_response, qr|/api/system/configuration|, 'requsted URL looks sane' );
};

subtest 'save_general_configuration', sub {
    my $client = setup();

    local *{'LWP::UserAgent::post'} = sub {
        return bless(
            {
                '_request' => bless(
                    {
                        '_uri' => bless(
                            do { \( my $o = "http://example.com:7777/artifactory/api/system/configuration" ) },
                            'URI::http'
                        ),
                    },
                    'HTTP::Request'
                )
            },