tests/testthat/test-seasonder_the.R

In SeaSondeR: Radial Metrics from SeaSonde HF-Radar Data

test_that("seasonder_enableMessages sets messages_enabled to TRUE", {
  seasonder_disableMessages()
  expect_false(seasonder_areMessagesEnabled())
  seasonder_enableMessages()
  expect_true(seasonder_areMessagesEnabled())
})

test_that("seasonder_disableMessages sets messages_enabled to FALSE", {
  seasonder_enableMessages()
  expect_true(seasonder_areMessagesEnabled())
  seasonder_disableMessages()
  expect_false(seasonder_areMessagesEnabled())
})

test_that("seasonder_areMessagesEnabled returns correct status", {
  seasonder_enableMessages()
  expect_true(seasonder_areMessagesEnabled())
  seasonder_disableMessages()
  expect_false(seasonder_areMessagesEnabled())
})