tests/testthat/test-prepare_catalog.R

In jkennel/earthtide: Parallel Implementation of 'ETERNA 3.40' for Prediction and Analysis of Earth Tides

context("test-prepare_catalog")

test_that("prepare_catalog works", {
  
  expect_silent(.prepare_catalog(1e-10, wave_groups = NULL, catalog = 'ksm04'))
  
  wave_groups <- data.frame(start = 1, end = 2, multiplier = 1.0)
  expect_silent(.prepare_catalog(1e-10, wave_groups = wave_groups, catalog = 'ksm04'))
  
  wave_groups <- data.frame(start = 1, end = 2)
  expect_silent(.prepare_catalog(1e-10, wave_groups = wave_groups, catalog = 'ksm04'))
  
  wave_groups <- data.frame(a = 1, b = 2)
  expect_silent(.prepare_catalog(1e-10, wave_groups = wave_groups, catalog = 'ksm04'))
  
  wave_groups <- data.frame(a = 1, b = 2, c = 1.0)
  expect_silent(.prepare_catalog(1e-10, wave_groups = wave_groups, catalog = 'ksm04'))
  
  wave_groups <- data.frame(a = c(1,3), b = c(2,4), c = c(1.0, 1.0))
  expect_silent(.prepare_catalog(1e-10, wave_groups = wave_groups, catalog = 'ksm04'))
  
  wave_groups <- data.frame(a = c(1,3), b = c(2,4), c = c(1.0, 1.0), d = c(2, 5))
  expect_warning(.prepare_catalog(1-10, wave_groups = wave_groups, catalog = 'ksm04'))
  
  wave_groups <- data.frame(start = 1)
  expect_error(.prepare_catalog(1e-10, wave_groups = wave_groups, catalog = 'ksm04'))
  
  wave_groups <- na.omit(eterna_wavegroups[eterna_wavegroups$time == 'all', c('start', 'end')])
  expect_silent(.prepare_catalog(1e-10, wave_groups = wave_groups, catalog = 'ksm04'))
  
  wave_groups <- na.omit(eterna_wavegroups[eterna_wavegroups$time == 'all', c('start', 'end')])
  expect_silent(.prepare_catalog(1e-4, wave_groups = wave_groups, catalog = 'ksm04'))
  
  
})