tests/testthat/test.populations.R

context("populations")


test_that("correct info about class structure", {
  data = read.morphodata("../testFiles/sample.txt")

  expect_equal(paste(populations(data)[1:8], collapse = ","), "BABL,BABU,BOL,BRT,BUK,CERM,CERV,CZLE")

})
MarekSlenker/MorphoTools2 documentation built on Oct. 2, 2024, 5:58 p.m.