From ba50dc26a1ddd63fd1ba75e478aeee1db22874da Mon Sep 17 00:00:00 2001 From: jamesaazam Date: Tue, 24 Sep 2024 09:54:47 +0000 Subject: [PATCH] Add test to check for expected element introduced --- tests/testthat/test-checks.R | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/tests/testthat/test-checks.R b/tests/testthat/test-checks.R index 6c5d00eae..9637fd7fd 100644 --- a/tests/testthat/test-checks.R +++ b/tests/testthat/test-checks.R @@ -213,4 +213,18 @@ test_that("check_na_setting_against_data works as expected", { data = example_confirmed ) ) + expect_identical( + setdiff( + names( + obs_opts() + ), + names( + check_na_setting_against_data( + obs = obs_opts(), + data = example_confirmed + ) + ) + ), + "na_as_missing_default_used" + ) })