tests/testthat/test_projects_repos.R

In statnmap/gitlabr: Access to the 'GitLab' API

# gl_list_projects ----
all_projects <- gl_list_projects(max_page = 1, per_page = 10)

test_that("gl_list_projects work", {
  expect_equal(nrow(all_projects), 10)
  expect_true(all(c("id", "name", "path") %in% names(all_projects)))
})

# gl_list_user_projects ----
# Chances are "testor" is one of the latest project with activity because of other unit tests
all_user_projects <- gl_list_user_projects(user_id = test_user_id, max_page = 2, order_by = "last_activity_at")

test_that("gl_list_user_projects work", {
  expect_true(all(test_project_name %in% all_user_projects[["name"]]))
  expect_true(all(c("id", "name", "path") %in% names(all_user_projects)))
})

# gl_list_group_projects ----
all_group_projects <- gl_list_group_projects(group_id = test_subgroup_id, max_page = 1)

test_that("gl_list_group_projects work", {
  if (nrow(all_group_projects) >= 1) {
    if (test_subgroup_name == "dontdelete.subgroup.for.gitlabr") {
      expect_true(test_subgroup_project_name %in% all_group_projects[["name"]])
    }
    expect_true(all(c("id", "name", "path") %in% names(all_group_projects)))
  }
})

# gl_get_project ----
test_that("gl_get_project work", {
  project_info <- gl_get_project(test_project)
  expect_equal(nrow(project_info), 1)
  expect_true(all(c("id", "name", "path") %in% names(project_info)))
})


# gl_proj_req ----
proj_req <- gl_proj_req(test_project, req = "merge_requests")
test_that("gl_proj_req works", {
  expect_equal(proj_req, c("projects", test_project_id, "merge_requests"))
})

# gl_get_project_id ----
# Can not be fully tested because gitlab.com is too big
# => Assume that the last modified is the current project
# because of unit tests

test_that("gl_get_project_id works", {
  expect_message(
    {
      the_retrieved_id <- gl_get_project_id(test_project_name,
        max_page = 3, owned = TRUE,
        order_by = "last_activity_at"
      )
    },
    regexp = paste0("Project found: ", test_project_id)
  )

  expect_equal(as.character(the_retrieved_id), test_project_id)
})
# gl_archive ----
# Dont want to test archiving project

# gl_compare_refs ----
# Not working ?
# gl_compare_refs(project = test_project_id,
#   from = "41582a3a61a943e2668de24555afa6814f7d3aaf",
#   to = "6b9d22115a93ab009d64f857dca346c0e105d64a")

# test_that("Compare works", {
#
#   expect_s3_class(my_gitlab(compare_refs
#                     , test_project
#                     , "f6a96d975d9acf708560aac120ac1712a89f2a0c"
#                     , "ea86a3a8a22b528300c03f9bcf0dc91f81db4087")
#           , "data.frame")
#
# })

# gl_get_commits ----
my_commits <- gl_get_commits(test_project, ref_name = get_main())

test_that("Commits work", {
  my_commit <- gl_get_commits(test_project, commit_sha = my_commits$id[1])

  expect_s3_class(my_commits, "data.frame")
  expect_s3_class(my_commit, "data.frame")
  expect_gt(length(intersect(names(my_commits), names(my_commit))), 0L)
})



# gl_get_diff ----
# The commit with CI is the last one in main branch
the_diff <- gl_get_diff(test_project, my_commits$short_id[1])

test_that("gl_get_diff work", {
  expect_s3_class(the_diff, "data.frame")
  expect_equal(nrow(the_diff), 1)
  expect_equal(the_diff$old_path, ".gitlab-ci.yml")
})

# gl_new_project ----
# Dont test not avoid GitLab rejection

# gl_edit_project ----
test_that("gl_edit_project work", {
  proj_edit <- gl_edit_project(project = test_project, default_branch = "for-tests")
  expect_equal(nrow(proj_edit), 1)
  # gl_list_branches is not reliable for default information
  # all_branches <- gl_list_branches(test_project)
  project_info <- gl_get_project(test_project)
  # expect_equal(all_branches$default[all_branches$name == "for-tests"], "TRUE")
  expect_equal(project_info$default_branch, "for-tests")
  # Strangely, main keeps beeing default in a way
  # expect_equal(all_branches$default[all_branches$name == get_main()], "FALSE")
  # Back to main
  gl_edit_project(project = test_project, default_branch = get_main())
  # all_branches <- gl_list_branches(test_project)
  project_info <- gl_get_project(test_project)
  # expect_equal(all_branches$default[all_branches$name == "for-tests"], "FALSE")
  # expect_equal(all_branches$default[all_branches$name == get_main()], "TRUE")
  expect_equal(project_info$default_branch, get_main())
})

# gl_delete_project ----
# Dont test delete project because this example project is needed...