tests/testthat/test-input_field.R

In shinyGovstyle: Custom Gov Style Inputs for Shiny

test_that("field works", {
  field_check <- input_field(
    legend ="List of three text boxes in a field",
    labels = c("Field 1", "Field 2", "Field 3"),
    inputIds = c("field1", "field2", "field3"),
    widths = c(30,20,10),
    error = TRUE)

  expect_equal(length(field_check), 3)

  expect_identical(
    paste(field_check$children[[2]]$`Field 1`$children[[2]]$attribs$class,
          field_check$children[[2]]$`Field 1`$children[[2]]$attribs[3]$class),
    "govuk-error-message shinyjs-hide"
  )

})

test_that("field works with null width", {
  field_check <- input_field(
    legend ="List of three text boxes in a field",
    labels = c("Field 1", "Field 2", "Field 3"),
    inputIds = c("field1", "field2", "field3")
  )

  expect_equal(length(field_check), 3)


})