tests/testthat/test-helpers-survey-code.R

test_that("base parse query string for user ID works", {

  query <- shiny::parseQueryString("?user_id=hadley&other_parameter=other/")

  base_val <- base_extract_user_id(query)

  expect_equal(base_val, "hadley")

})
jdtrat/shinysurveys documentation built on April 22, 2022, 8:14 a.m.