tests/testthat/test-has-header.R

In UW-GAC/wgsaparsr: A R package for Parsing Annotation File for Database Import

context("test_.has_header - unit tests")

test_that(
  ".has_header returns TRUE for a header line", {
    test_string <- paste("CHROM", "POS", "REF", "ALT", sep = "\t")
    expect_true(.has_header(test_string))
  }
)

test_that(
  ".has_header returns FALSE for a non-header line", {
    test_string <- "Not a header."
    expect_false(.has_header(test_string))
  }
)

test_that(
  ".has_header wirks with mixed case", {
    test_string <- paste("chrom", "POS", "REF", "ALT", sep = "\t")
    expect_true(.has_header(test_string))
  }
)