tests/testthat/test_input.R

In Appsilon/shiny.semantic: Semantic UI Support for Shiny

context("input")

test_that("test uiinput", {
  # type
  expect_is(uiinput(), "shiny.tag")
  # text input
  si_str <- as.character(uiinput())
  expect_true(any(grepl("<div class=\"ui  input\">", si_str, fixed = TRUE)))
})

test_that("test text_input", {
  # type
  expect_is(text_input("text_input", "Text Input"), "shiny.tag")
  # empty input
  expect_error(text_input())
  # text input
  si_str <- as.character(text_input("text_input", "Text Input"))
  expect_true(any(grepl("<div class=\"ui  input\">\n  <label>Text Input</label>\n ",
                        si_str, fixed = TRUE)))
  # text value
  si_str <- as.character(text_input("text_input", "Text Input", value ="x"))
  expect_true(any(grepl("value=\"x\"",
                        si_str, fixed = TRUE)))
})

test_that("test textInput", {
  # type
  expect_is(textInput("text_input", "Text Input"), "shiny.tag")
  # empty input
  expect_error(textInput())
  # text input
  si_str <- as.character(textInput("text_input", "Text Input"))
  expect_true(any(grepl("<div class=\"ui form\">\n  <div class=\"field\">",
                        si_str, fixed = TRUE)))

})

test_that("test textAreaInput", {
  # type
  expect_is(textAreaInput("ta_input", "Text Area Input"), "shiny.tag")
  # empty input
  expect_error(textAreaInput())
  # text input
  si_str <- as.character(textAreaInput("ta_input", "Text Area Input"))
  expect_true(any(grepl("<textarea id=\"ta_input\"",
                        si_str, fixed = TRUE)))
})

test_that("test numeric_input", {
  # type
  expect_is(numeric_input("number_input", "label", 20), "shiny.tag")
  # empty input
  expect_error(numeric_input())
  # text input
  expect_error(numeric_input("number input", "label","Text input"))
  # non-character and non NULL placeholder
  expect_error(numeric_input("number input", "label", NULL, placeholder = 4))
  # number input
  si_str <- as.character(numeric_input("number_input", "label", 20))
  expect_true(any(grepl("<input id=\"number_input\" value=\"20\" type=\"number\"/>",
                        si_str, fixed = TRUE)))
  # all parameters
  expect_is(numeric_input("number_input", "label", 20, min = 10, max = 40, step = 1, 
    placeholder = "please type an input"),
            "shiny.tag")
})

test_that("test numericInput", {
  # type
  expect_is(numericInput("numberinput", "NLabel", 20), "shiny.tag")
  # empty input
  expect_error(numericInput())
  expect_error(numericInput("a", "label"), "either 'value' or 'placeholder' should be defined")
})

test_that("test file_input", {
  # type
  expect_is(file_input("file_input", "label", 20), "shiny.tag")
  # empty input
  expect_error(file_input())
  # file input
  si_str <- as.character(file_input("file_input", "File Input Label"))
  expect_true(grepl("<input id=\"file_input\".*type=\"file\".*/>", si_str))
  # all parameters
  expect_is(
    file_input(
      "file_input", "File Label", multiple = TRUE, accept = c("*.csv", "*.xlsx"), type = "tiny",
      button_label = "Button", placeholder = "files needed"
    ),
    "shiny.tag"
  )
})

test_that("test fileInput", {
  # type
  expect_is(fileInput("fileinput", "Label"), "shiny.tag")
  # empty input
  expect_error(fileInput())
  expect_error(fileInput("fileinput"))
})