tests/testthat/test-get_ff_ind.R

In iangow/farr: Data and Code for Financial Accounting Research

library(dplyr, warn.conflicts = FALSE)

test_that("get_ff_ind(5) works", {
  expect_equal(get_ff_ind(5) %>%
                   select("ff_ind") %>%
                   distinct() %>%
                   pull() %>%
                   length(), 4)
})