From 091efb1c33387634ab6a1f8912d2dd745993f38f Mon Sep 17 00:00:00 2001 From: vedhav Date: Wed, 8 Nov 2023 19:38:03 +0530 Subject: [PATCH] fix: update tests --- tests/testthat/test-module_nested_tabs.R | 2 +- tests/testthat/test-tdata.R | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/testthat/test-module_nested_tabs.R b/tests/testthat/test-module_nested_tabs.R index 74aea0ecd8..07f21e0422 100644 --- a/tests/testthat/test-module_nested_tabs.R +++ b/tests/testthat/test-module_nested_tabs.R @@ -451,7 +451,7 @@ testthat::test_that(".datasets_to_data returns tdata object", { # join_keys testthat::expect_equal( - get_join_keys(data), + join_keys(data), teal.data::join_keys(teal.data::join_key("d1", "d2", c("pk" = "id"))) ) diff --git a/tests/testthat/test-tdata.R b/tests/testthat/test-tdata.R index 7f486f3c9f..09224528ff 100644 --- a/tests/testthat/test-tdata.R +++ b/tests/testthat/test-tdata.R @@ -200,12 +200,12 @@ testthat::test_that("tdata2env throws error if argument is not tdata", { }) # ---- get_join_keys ---- -testthat::test_that("get_join_keys returns NULL if no JoinKeys object exists inside tdata", { +testthat::test_that("join_keys returns NULL if no JoinKeys object exists inside tdata", { my_tdata <- new_tdata(data = list(iris = iris, mae = reactive(miniACC))) - testthat::expect_null(get_join_keys(my_tdata)) + testthat::expect_null(join_keys(my_tdata)) }) -testthat::test_that("get_join_keys returns JoinKeys object if it exists inside tdata", { +testthat::test_that("join_keys returns JoinKeys object if it exists inside tdata", { jk <- teal.data::join_keys(teal.data::join_key("A", "B", c("id" = "fk"))) my_tdata <- new_tdata( @@ -216,5 +216,5 @@ testthat::test_that("get_join_keys returns JoinKeys object if it exists inside t join_keys = jk ) - testthat::expect_equal(get_join_keys(my_tdata), jk) + testthat::expect_equal(join_keys(my_tdata), jk) })