tests/testthat/test-animalType.R

In UBC-MDS/Ranimalsgonewild: Animal themed text filters

library(imager)

test_that("input value type is incorrect", {
  expect_error(animalType(123, "this is a string"))
})

test_that("input value type is incorrect", {
  expect_error(animalType("Duck", 123))
})

test_that("fails to return dumb duck on small word length text", {
  # for future development tests
  # dir <- dirname(getwd())
  # dir <- dirname(dir)
  # filename <- paste(dir, "/imgs/dumb_Duck.jpeg", sep = "")
  # dumb_duck <- load.image(filename)

  small_words <- "hi my name is john and I am simple"
  expect_equal(animalType("Duck", small_words), "dumb_Duck")
})

test_that("fails to return smart giraffe on large word length text", {
  # for future development tests
  # dir <- dirname(getwd())
  # dir <- dirname(dir)
  # print(dir)
  # filename <- paste(dir, "/imgs/smart_Giraffe.jpeg", sep = "")
  # smart_giraffe <- load.image(filename)

  big_words = "inscrutable or at least esoteric language."
  expect_equal(animalType("Giraffe", big_words), "smart_Giraffe")
})
test_that("fails to return dumb whale in text with punctuation", {
  # for future development tests
  # dir <- dirname(getwd())
  # dir <- dirname(dir)
  # print(dir)
  # filename <- paste(dir, "/imgs/dumb_Whale.jpeg", sep = "")
  # dumb_whale <- load.image(filename)

  bad_words = "hi' my; na/me is j!ohn and I am simple"
  expect_equal(animalType("Whale", bad_words), "dumb_Whale")
})