tests/testthat/testthat_knitUtil.R

test_that("kCounts() results",{
  expect_equal(kCounts(0),"zero")
  expect_equal(kCounts(1),"one")
  expect_equal(kCounts(10),"ten")
  expect_equal(kCounts(11),11)
  expect_equal(kCounts(-1),-1)
  expect_equal(kCounts(0,capitalize=TRUE),"Zero")
  expect_equal(kCounts(1,capitalize=TRUE),"One")
  expect_equal(kCounts(10,capitalize=TRUE),"Ten")
  expect_equal(kCounts(11,capitalize=TRUE),11)
  expect_equal(kCounts(-1,capitalize=TRUE),-1)
})

test_that("kPvalue() results",{
  tmp <- 0.123456789
  expect_equal(kPvalue(tmp),"$p=0.1235$")
  expect_equal(kPvalue(tmp,digits=2),"$p=0.12$")
  expect_equal(kPvalue(tmp,include.p=FALSE),"$0.1235$")
  expect_equal(kPvalue(tmp,latex=FALSE),"p=0.1235")
  expect_equal(kPvalue(tmp,include.p=FALSE,latex=FALSE),"0.1235")
  expect_equal(kPvalue(tmp,digits=2,include.p=FALSE,latex=FALSE),"0.12")
  ## very small p-values
  tmp2 <- tmp/10000000
  expect_equal(kPvalue(tmp2),"$p<0.00005$")
  expect_equal(kPvalue(tmp2,digits=2),"$p<0.005$")
  expect_equal(kPvalue(tmp2,include.p=FALSE),"$<0.00005$")
  expect_equal(kPvalue(tmp2,latex=FALSE),"p<0.00005")
  expect_equal(kPvalue(tmp2,include.p=FALSE,latex=FALSE),"<0.00005")
  expect_equal(kPvalue(tmp2,digits=2,include.p=FALSE,latex=FALSE),"<0.005")
  expect_equal(kPvalue(tmp2,digits=9),"$p=0.000000012$")
  ## very large p-values
  tmp2 <- tmp*10
  expect_equal(kPvalue(tmp2),"$p>1$")
  expect_equal(kPvalue(tmp2,digits=2),"$p>1$")
  expect_equal(kPvalue(tmp2,include.p=FALSE),"$>1$")
  expect_equal(kPvalue(tmp2,latex=FALSE),"p>1")
  expect_equal(kPvalue(tmp2,include.p=FALSE,latex=FALSE),">1")
  expect_equal(kPvalue(tmp2,digits=2,include.p=FALSE,latex=FALSE),">1")
  expect_equal(kPvalue(tmp2,digits=9),"$p>1$")
})

# ############################################################
# Internal Functions
# ############################################################
test_that("iMakeItemsToRemove() returns",{
  tmp <- FSA:::iMakeItemsToRemove(c("Derek","Ogle"))
  expect_true(any(grepl("Derek",tmp)))
  expect_true(any(grepl("Ogle",tmp)))
})

test_that("iMakeFilename() returns",{
  expect_equal(FSA:::iMakeFilename("Derek",".Rmd"),"Derek.Rmd")
  expect_equal(FSA:::iMakeFilename("Derek",".Rmd","C:"),"C:/Derek.Rmd")
  expect_equal(FSA:::iMakeFilename("Derek",".Rmd","C:/Ogle"),"C:/Ogle/Derek.Rmd")
})
droglenc/FSA documentation built on Aug. 30, 2023, 12:51 a.m.