# Check functions in utils.R file

test_that("modes", {
   modes <- shinyEditor::getAceModes()
   expect_true(is.character(modes))
   expect_true(length(modes) > 0)
   expect_true(sum(nchar(modes)) > 500)
})

test_that("themes", {
   themes <- shinyEditor::getAceThemes()
   expect_true(is.character(themes))
   expect_true(length(themes) > 0)
   expect_true(sum(nchar(themes)) > 300)
})

test_that("fonts", {
   fonts <- shinyEditor::getSystemFontsFamily()
   expect_true(is.character(fonts))
   expect_true(length(fonts) > 0)
   expect_true(sum(nchar(fonts)) > 500)
})

test_that("status", {
   status <- shinyEditor::packageStatus()
   expect_true(is.list(status))
   expect_true(length(status) > 0)
})