tests/testthat/countryInput.R

In etc5523-2020/r-package-assessment-petestylianos: Contains a Shiny App with Summaries, Analytics and News related to COVID-19

test_that("custom slider works", {

  testtat::expect_error(countryInput(id=NULL, "country"))

  testtat::expect_error(countryInput("id", x = NULL))

  testthat::expect_equal(countryInput("id", "country"), "<div class='form-group shiny-input-container'>
                           <label class='control-label' for='id'>
                           <h4 style='color:navy'>Select Country</h4>
                           </label>
                           <div>
                           <select id='id'><option value='country'>country</option></select>
                           <script type='application/json' data-for='id' data-nonempty=''>{}</script>
                           </div>
                           </div>")
})