tests/testthat/test_memory.R

In urltools: Vectorised Tools for URL Handling and Parsing

context("Avoid regressions around proxy objects")

test_that("Values are correctly disposed from memory",{
  memfn <- function(d = NULL){
    test_url <- "https://test.com"
    if(!is.null(d)){
      test_url <- urltools::param_set(test_url, "q" , urltools::url_encode(d))
     }
    return(test_url)
  }
  
  baseurl <- "https://test.com"
  expect_equal(memfn(), baseurl)
  expect_equal(memfn("blah"), paste0(baseurl, "?q=blah"))
  expect_equal(memfn(), baseurl)
})

test_that("Parameters correctly add to output",{
  outfn <- function(d = FALSE){
    test_url <- "https://test.com"
    if(d){
      test_url <- urltools::param_set(test_url, "q", urltools::url_encode(d))
    }
    return(test_url)
  }
  
  baseurl <- "https://test.com"
  expect_equal(outfn(), baseurl)
  expect_equal(outfn(TRUE), paste0(baseurl, "?q=TRUE"))
})