tests/testthat/test-add_files.R

In GitAI: Extracts Knowledge from 'Git' Repositories

test_that("add_files adds file_paths to GitAI settings", {
  my_project <- initialize_project("gitai_test_project")

  my_project <- my_project |>
    add_files(files = "DESCRIPTION")
  expect_equal("DESCRIPTION", my_project$files)

  my_project <- my_project |>
    add_files(files = c("LICENSE", "project_metadata.yaml"))
  expect_equal(c("LICENSE", "project_metadata.yaml"), my_project$files)
})

test_that("add_files adds file_types to GitAI settings", {
  my_project <- initialize_project("gitai_test_project")
  my_project <- my_project |>
    add_files(files = "*.md")
  expect_equal("*.md", my_project$files)
})

test_that("add_files returns error when other than character type is passed", {
  my_project <- initialize_project("gitai_test_project")
  expect_snapshot_error(
    my_project <- my_project |>
      add_files(files = 12345)
  )
})