dwww Home | Show directory contents | Find package

test_that("get_spinner", {
  if (is_utf8_output()) {
    expect_equal(get_spinner()$name, "dots")
  } else {
    expect_equal(get_spinner()$name, "line")
  }
})

test_that("list_spinners", {
  ls <- list_spinners()
  expect_true(is.character(ls))
  expect_true("dots" %in% ls)
  expect_true("line" %in% ls)
})

Generated by dwww version 1.15 on Sat Jun 15 20:49:59 CEST 2024.