tests/testthat/test_readGenepopStructure.R

In alexkychen/assignPOP: Population Assignment using Genetic, Non-Genetic or Integrated Data in a Machine Learning Framework

context("Test read.Genepop and read.Structure")

test_that("read.Genepop imports Genepop file as a list", {
  expect_output(str(read.Genepop("testData/GenepopEx1.txt")), "List of 3")
  expect_output(str(read.Genepop("testData/GenepopEx1.txt", pop.names = c("A","B","C"))), "List of 3")
  expect_output(str(read.Genepop("testData/GenepopEx1.txt", pop.names = c("A","B","C"), haploid = T)), "List of 3")
  expect_output(str(read.Genepop("testData/GenepopEx2.txt")), "List of 3")
})

test_that("read.Structure imports Structure file as a list",{
  expect_output(str(read.Structure("testData/StructureEx1.txt")),"List of 3")
  expect_output(str(read.Structure("testData/StructureEx1.txt", ploidy = 2)),"List of 3")
  expect_output(str(read.Structure("testData/StructureEx2.txt")),"List of 3")
  expect_output(str(read.Structure("testData/StructureEx2.txt", ploidy = 2)),"List of 3")
})