tests/testthat/test_utils.R

In Epiconcept-Paris/STRAP-epiuf: Epiconcept Team Utility Functions for STRAP Project

library(epiuf)

test_that("char count ok", {
  expect_equal(charCount(";","test;test;"),2)
})

test_that("no char count ok", {
  expect_equal(charCount(";","test test"),0)
})

test_that("Verify that nothing is 0 ", {
  expect_equal(charCount("","essai"),0)
  expect_equal(charCount("e",""),0)
})

  
test_that("Verify a special character ", {
  expect_equal(charCount("\\.","21.15.98"),2)
})

test_that("A string in a vector", {
expect_equal(charCount("ce",c("cacec","ceci" )),2)
} )            
  
test_that("A string / word in a dataframe", {
  df <- data.frame(c("cacececi","ceci" ,"non","ace"))
   expect_equal(charCount("ce",df),4)
   expect_equal(charCount("\\bce\\b",df),0)
})   

test_that("A word in a dataframe  (between \b which escaped is \\\\b)", {
df <- data.frame(c("ca cece ci","ce ci" ,"non","a ce"))
expect_equal(charCount("\\bce\\b",df),2 ) 
})

test_that("Adding a separator", {
   li <- list("one","two")
   expect_equal(addSep(li,"-"),"one-two")
   expect_equal(addSep(li),"one, two")
   expect_equal(addSep(""),"")
   expect_equal(addSep("one"),"one")
   
})

test_that("File ext found", {
  expect_equal(fileExt("tira.dta"),"dta")
})

test_that("File name found", {
  expect_equal(fileName("c:/test/tira.dta"),"tira")
})

test_that("File ext found in path", {
  expect_equal(fileExt("users/test/data.tira.dta"),"dta")
})

test_that("File dta load ", {
  gastro5 <- readData("gastro5.dta")
  expect_equal(is.data.frame(gastro5),TRUE)
  expect_equal(exists("gastro5"),TRUE)
})

test_that("File csv load ", {
  tira <- readData("tira.csv")
  expect_equal(is.data.frame(tira),TRUE)
  expect_equal(is.factor(tira$sex),FALSE)
})

test_that("File csv load with factor ", {
  tira <- readData("tira.csv",factorise=TRUE)
  expect_equal(is.data.frame(tira),TRUE)
  expect_equal(is.factor(tira$sex),TRUE)
})

test_that("right of text correct", {
  expect_equal(right("dummy_test",4),"test")
})