added tests for dictionary suggest

mlr-org · Dec 1, 2024 · 5099de7 · 5099de7
1 parent 0027e3e
commit 5099de7
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/tests/testthat/test_po.R b/tests/testthat/test_po.R
@@ -217,3 +217,11 @@ test_that("Incrementing ids works", {
   xs = pos(c("pca_1", "pca_2"))
   assert_true(all(names(xs) == c("pca_1", "pca_2")))
 })
+
+test_that("po - dictionary suggest works", {
+
+  # test that correct dictionary is checked against
+  expect_error(po("robustify"), "ppl\\(\\): 'robustify'")
+  expect_error(pos("robustify"), "ppls\\(\\): 'robustify'")
+
+})
diff --git a/tests/testthat/test_ppl.R b/tests/testthat/test_ppl.R
@@ -26,7 +26,7 @@ test_that("mlr_graphs access works", {
 })
 
 
-test_that("mlr_pipeops multi-access works", {
+test_that("mlr_graphs multi-access works", {
 
   expect_equal(
     ppls("robustify"),
@@ -73,3 +73,11 @@ test_that("mlr3book authors don't sleepwalk through life", {
   bmr = benchmark(benchmark_grid(tasks, learners, rsmp("cv", folds = 2)))
 
 })
+
+test_that("ppl - dictionary suggest works", {
+
+  # test that correct dictionary is checked against
+  expect_error(ppl("adas"), "po\\(\\): 'pca'")
+  expect_error(ppls("adas"), "pos\\(\\): 'pca'")
+
+})