if (is_windows()) {
describe("group_ids()", {
it("returns the group ids", {
g <- group_ids()
expect_s3_class(g, "data.frame")
expect_true(nrow(g) == 0)
expect_equal(colnames(g), c("group_id", "group_name"))
})
})
describe("user_ids()", {
it("returns the group ids", {
u <- user_ids()
expect_s3_class(u, "data.frame")
expect_true(nrow(u) == 0)
expect_equal(colnames(u), c("user_id", "user_name"))
})
})
} else {
describe("group_ids()", {
it("returns the group ids", {
g <- group_ids()
expect_s3_class(g, "data.frame")
expect_true(nrow(g) > 0)
expect_equal(colnames(g), c("group_id", "group_name"))
})
})
describe("user_ids()", {
it("returns the group ids", {
u <- user_ids()
expect_s3_class(u, "data.frame")
expect_true(nrow(u) > 0)
expect_equal(colnames(u), c("user_id", "user_name"))
})
})
}
Generated by dwww version 1.15 on Tue Jul 2 08:40:15 CEST 2024.