tests/testthat/test-babel-import.R

In Momocs: Morphometrics using R

context("babel-import")

test_that("import .txt", {
  fns <- c("butterfly.txt", "cat.txt")
  export(shapes[3], file=fns[1])
  export(shapes[4], file=fns[2])
  expect_true(is_shp(import_txt(fns[1], header=TRUE)$butterfly))
  expect_s3_class(import_txt(rep(fns, 6), header=TRUE) %>% Out(), "Out")
  shut_up <- file.remove(fns)
})

test_that("import_Conte works fine",{
  expect_true(
    system.file("extdata/beer_chimay.jpg", package="Momocs") %>%
    jpeg::readJPEG()  %>%
    import_Conte(round(dim(.)/2)) %>% is_shp()
  )
})

test_that("import_jpg1 works fine",{
  path <- system.file("extdata/beer_chimay.jpg", package="Momocs")
  expect_true(path %>% import_jpg1 %>% is_shp())
  expect_true("rvb.jpg" %>% import_jpg1() %>% is_shp)
  expect_true("borders.jpg" %>% import_jpg1() %>% is_shp)
})

test_that("import_jpg works fine",{
  paths <- c(system.file("extdata/beer_chimay.jpg", package="Momocs"),
             system.file("extdata/whisky_jb.jpg", package="Momocs"))
  expect_true(paths %>% import_jpg() %>% Out %>% is_Out)
})

test_that("import_tps works fine",{
  x <- "lm.tps" %>% import_tps
  expect_true(x$coo %>% is.list)
  expect_true(x$coo %>% sapply(is_shp) %>% all())
  expect_true(x$scale %>% is.list)
  expect_true(x$scale %>% sapply(is.numeric) %>% all)

  x <- "outlines.tps" %>% import_tps()
  expect_true(x$coo %>% is.list)
  expect_true(x$coo %>% sapply(is_shp) %>% all())
  expect_true(x$scale %>% is.list)
  expect_true(x$scale %>% sapply(is.numeric) %>% all)
})