# Check initial versions (internal)
test_that("finds internal pack versions", {
  # include getOption verification
  df_versions = get_pack_versions()
  expect_equal(df_versions %>% ncol(), 3)
  expect_true('internal' %in% df_versions$location)
})

# Test adding new pack
test_that("adds a new pack, existing pack and sets default correctly", {
  # Backup existing versions
  usr_dir = tools::R_user_dir('RDaggregator', 'config')
  versions_path = file.path(usr_dir, 'pack_versions.csv')

  if(file.exists(versions_path)){
    df_versions_backup = read.csv2(versions_path)
    file.remove(versions_path)
  }
  else
    df_versions_backup = NULL

  df_versions = get_pack_versions()
  expect_equal(dim(df_versions), c(1,3))

  # Add new pack
  pack_zipfile = test_path('fixtures', 'Orphanet_Nomenclature_Pack_FR_short.zip')
  expect_error(add_nomenclature_pack('inexisting.file'), 'not found')
  expect_message(out <- add_nomenclature_pack(pack_zipfile), 'Loading and processing') %>%
    expect_message('Adding new') %>%
    expect_message('succesfully added')
  expect_true(out)

  df_versions = get_pack_versions()
  expect_equal(dim(df_versions), c(2,3))

  # Try adding existing pack
  pack_zipfile = test_path('fixtures', 'Orphanet_Nomenclature_Pack_EN.zip')
  # force = FALSE
  expect_message(add_nomenclature_pack(pack_zipfile), 'Loading and processing') %>%
    expect_error('already exists')
  df_versions = get_pack_versions()
  expect_equal(dim(df_versions), c(2,3))

  # Force adding existing pack
  pack_zipfile = test_path('fixtures', 'Orphanet_Nomenclature_Pack_FR_short.zip')
  expect_message(out <- add_nomenclature_pack(pack_zipfile, force=TRUE), 'Loading and processing') %>%
    expect_warning('replaced') %>%
    expect_message('succesfully added')
  expect_true(out)
  df_versions = get_pack_versions()
  expect_equal(dim(df_versions), c(2,3))
  expect_true(all(get_pack_versions()$location == 'internal' | file.exists(get_pack_versions()$location)))
  expect_true(get_pack_versions() %>% filter(default) %>% pull(location) == 'internal')

  # Set default correctly
  pack_zipfile = test_path('fixtures', 'Orphanet_Nomenclature_Pack_FR_short.zip')
  expect_message(out <- add_nomenclature_pack(pack_zipfile, force=TRUE, default=TRUE), 'Loading and processing') %>%
    expect_warning('replaced') %>%
    expect_message('succesfully added')
  expect_true(out)

  df_versions = get_pack_versions()
  expect_equal(dim(df_versions), c(2,3))
  expect_true(sum(get_pack_versions()$default) == 1)
  expect_true(get_pack_versions() %>% filter(default) %>% pull(location) %>% str_ends('.rda'))

  # Restore
  if(!is.null(df_versions_backup))
    save_pack_versions(df_versions_backup)
  else
    file.remove(versions_path)
})