view release on metacpan or  search on metacpan

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

subtest 'change_password', sub {
    my $client = setup();
    local *{'LWP::UserAgent::post'} = sub {
        return $mock_responses{http_200};
    };
    my %info = (
        userName    => 'david',
        oldPassword => 'foo',
        newPassword => 'bar',
    );
    my $resp = $client->change_password(%info);
    is( $resp->code, 200, 'request succeeded' );
};

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

subtest 'set_password_expiration_policy', sub {
    my $client = setup();
    local *{'LWP::UserAgent::put'} = sub {
        return $mock_responses{http_200};
    };
    my %info = (
        enabled        => 'true',
        passwordMaxAge => 999,
        notifyByEmail  => 'true'
    );
    my $resp = $client->set_password_expiration_policy(%info);
    is( $resp->code, 200, 'request succeeded' );
};

subtest 'configure_user_lock_policy', sub {
    my $client = setup();
    local *{'LWP::UserAgent::put'} = sub {
        return $mock_responses{http_200};
    };
    my %info = (
        enabled       => 'true',
        loginAttempts => 3
    );
    my $resp = $client->configure_user_lock_policy(%info);
    is( $resp->code, 200, 'request succeeded' );
};

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

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

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

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

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

subtest 'create_api_key', sub {
    my $client = setup();
    my %data = ( apiKey => '3OloposOtVFyCMrT+cXmCAScmVMPrSYXkWIjiyDCXsY=' );
    local *{'LWP::UserAgent::post'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->create_api_key(%data);
    is( $resp->code, 200, 'request succeeded' );
};

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

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

    # makes 2 calls, one to get the current key and the other to delete it
    local *{'LWP::UserAgent::get'} = sub {
        return $mock_responses{http_200};
    };
    local *{'LWP::UserAgent::delete'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->revoke_api_key();
    is( $resp->code, 200, 'request succeeded' );
};

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

    # makes 2 calls, one to get the current key and the other to delete it
    local *{'LWP::UserAgent::get'} = sub {
        return $mock_responses{http_200};
    };
    local *{'LWP::UserAgent::delete'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->revoke_user_api_key("foobar_user");
    is( $resp->code, 200, 'request succeeded' );
};

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

    # makes 2 calls, one to get the current key and the other to delete it
    local *{'LWP::UserAgent::get'} = sub {
        return $mock_responses{http_200};
    };
    local *{'LWP::UserAgent::delete'} = sub {
        return $mock_responses{http_200};
    };

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

                    {
                        '_uri' => bless(
                            do { \( my $o = "http://example.com:7777/artifactory/api/export/system" ) }, 'URI::http'
                        ),
                    },
                    'HTTP::Request'
                )
            },
            'HTTP::Response'
        );
    };
    my $resp            = $client->export_system_settings_example();
    my $url_in_response = $resp->request->uri;
    like( $url_in_response, qr|/api/export/system|, 'requsted URL looks sane' );
};

subtest 'export_system', sub {
    my $client = setup();
    my %args   = (
        exportPath      => '/export/path',
        includeMetadata => 'true',
        createArchive   => 'false',
        bypassFiltering => 'false',
        verbose         => 'false',
        failOnError     => 'true',
        failIfEmpty     => 'true',
        m2              => 'false',
        incremental     => 'false',
        excludeContent  => 'false'
    );

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

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

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

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

subtest 'create_bundle', sub {
    my $client = setup();
    my %data   = ();

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

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

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

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

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

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

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

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

    local *{'LWP::UserAgent::delete'} = sub {
        return $mock_responses{http_200};
    };
    my $resp = $client->delete_bundle('foobar');