tests/testthat/test_pfam.R

In iferres/pewit: Microbial Pan-Genomics in R

context('pfam')

pfamdat_file <- system.file('testdata', 'Pfam-A.hmm.dat', package = 'pewit')
ref_pfamdat_file <- system.file('testdata', 'processed_pfamadat.rds', package = 'pewit')
ref_pfamdat <- readRDS(ref_pfamdat_file)

x <- pewit:::processPfam_A_Dat(pfamdat_file)
xcln <- c("ID", "TP", "CL")
d <- dim(x)

test_that('processPfam_A_Dat works', {
  expect_is(x, 'data.frame')
  expect_identical(d[1], 6L)
  expect_identical(d[2], 3L)
  expect_identical(colnames(x), xcln)
  expect_identical(x, ref_pfamdat)
})