tests/testthat/test-get_ff_ind.R

In 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)
})