test_url <- Sys.getenv("GITLABR_TEST_URL")
test_private_token <- Sys.getenv("GITLABR_TEST_TOKEN")
#test_login <- Sys.getenv("GITLABR_TEST_LOGIN")
#test_password <- Sys.getenv("GITLABR_TEST_PASSWORD")
test_api_version <- Sys.getenv("GITLABR_TEST_API_VERSION", unset = "v4")
test_that("Gitlab connection creation works", {
my_gitlab <- gl_connection(test_url,
private_token = test_private_token,
api_version = test_api_version)
expect_is(my_gitlab, "function")
expect_is(my_gitlab("projects"), "data.frame")
expect_is(my_gitlab(gl_list_projects), "data.frame")
expect_equivalent(my_gitlab(gl_list_projects),
my_gitlab("projects"))
expect_equivalent(my_gitlab("projects"),
gitlab("projects",
api_root = paste0(test_url, "/api/", test_api_version, "/"),
private_token = test_private_token))
## function idiom
expect_is(gl_list_projects(gitlab_con = my_gitlab), "data.frame")
expect_equivalent(gl_list_projects(gitlab_con = my_gitlab),
my_gitlab("projects"))
})
# test_that("Connection with login and user works", {
#
# my_gitlab <- gl_connection(test_url,
# login = test_login,
# password = test_password,
# api_version = test_api_version)
#
# expect_is(my_gitlab, "function")
#
# expect_is(my_gitlab("projects"), "data.frame")
#
# })
test_that("Project connection creation works", {
my_project <- gl_project_connection(test_url, "testor",
private_token = test_private_token,
api_version = test_api_version)
expect_is(my_project, "function")
expect_is(my_project(gl_list_files), "data.frame")
expect_is(gl_list_files(gitlab_con = my_project), "data.frame")
})
test_that("set_gl_connection works", {
## using explicit function creation
my_gitlab <- gl_connection(test_url,
private_token = test_private_token,
api_version = test_api_version)
set_gitlab_connection(my_gitlab)
expect_is(gitlab("projects"), "data.frame")
expect_equivalent(gitlab("projects"),
my_gitlab("projects", gitlab_con = "self"))
expect_equivalent(gl_list_projects(),
my_gitlab(gl_list_projects, gitlab_con = "self"))
unset_gitlab_connection()
## using dots
set_gitlab_connection(gitlab_url = test_url,
private_token = test_private_token,
api_version = test_api_version)
expect_is(gitlab("projects"), "data.frame")
expect_equivalent(gitlab("projects"),
my_gitlab("projects", gitlab_con = "self"))
expect_equivalent(gl_list_projects(),
my_gitlab(gl_list_projects, gitlab_con = "self"))
unset_gitlab_connection()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.