tests/testthat/test-get_seedlings_nouns.R

In BergelsonLab/blabr: a toolbox for working in the BLAB

test_that("the main table loads at all", {
  expect_non_empty_dataframe(
    without_warning_or_messages(
      get_seedlings_nouns()))
})

test_that("get_seedlings_nouns and friends work", {
  versions_to_test <- c('0.0.0.9016',  # a dev version
                        'v1.0.0',  # a public version
                        'v2.0.0-dev')  # a version with extra columns added
  for (version in versions_to_test) {
    for (table in c('seedlings-nouns', 'regions', 'recordings',
                    'sub-recordings')) {
      if (table == 'seedlings-nouns') {
        get_table <- function() {
          without_warning_or_messages(
            get_seedlings_nouns(version = version)
          )
        }}
      else {get_table <- function() {
        without_warning_or_messages(
          get_seedlings_nouns_extra(version = version, table = table)
        )
      }}

      get_codebook <- function() {
        without_warning_or_messages(
          get_seedlings_nouns_codebook(version = version, table = table)
        )
      }

      expect_non_empty_dataframe(get_table())
      expect_non_empty_dataframe(get_codebook())
    }
  }
})