tests/testthat/test-projectboard.R

In metrumresearchgroup/ghpm: GHPM

context("test-projectboard")

test_that("get_projectboard()", {
	skip_if_any()

	result <- get_projectboard("metrumresearchgroup", "pkgr", 2)

	expect_true(is.list(result) && length(result) > 0)
	expect_equal(names(result), c("id", "name", "body", "state", "creator", "createdAt", "closedAt"))
})

test_that("get_projectboard_issues()", {
	skip_if_any()

	result <- get_projectboard_issues("metrumresearchgroup", "pkgr")

	expect_true(is.data.frame(result) && nrow(result) > 0)
	expect_equal(names(result), c("board", "column", "title", "issue"))
})