tests/testthat/test-tag_cols.R

context("Checking tag_cols")

test_that("tag_cols is a tibble.",{

    expect_true(methods::is(tag_cols(markers), 'tbl_df'))

})

test_that("tag_cols gets correct number of columns.",{

    expect_true(ncol(tag_cols(markers)) == 4)

})
trinker/termco documentation built on Jan. 7, 2022, 3:32 a.m.