tests/testthat/test-read_collected_operators.R

context("read_collected_operators")

test_that("example", {

  df <- wiritttea::read_collected_operators(
    wiritttea::find_path("read_collected_operators.csv"))
  testthat::expect_equal(nrow(df), 10)
})
richelbilderbeek/wiritttea documentation built on May 27, 2019, 8:02 a.m.