tests/testthat/test_gliph.R

In shashidhar22/LymphoSeq2: Analyze high-throughput sequencing of T and B cell receptors

context("Read GLIPH Files")
library(LymphoSeq2)
library(tidyverse)

test_that("Reads a GLIPH files correctly", {
  gtable <- LymphoSeq2::readGliph("test_data/gliph")
  nsample <- gtable %>%
    dplyr::pull(repertoire_id) %>%
    base::unique() %>%
    base::length()
  nspec <- gtable %>%
    dplyr::pull(spec_group) %>%
    base::unique() %>%
    base::length()
  expect_equal(nsample, 2)
  expect_equal(nspec, 20)
})