tests: couple more sanity checks

mlr-org · Nov 18, 2024 · 042bb8b · 042bb8b
1 parent d283c45
commit 042bb8b
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test_PipeOpFDATSFeatures.R b/tests/testthat/test_PipeOpFDATSFeatures.R
@@ -3,3 +3,13 @@ test_that("PipeOpFDATSFeatures - basic properties", {
   expect_pipeop(pop)
   expect_identical(pop$id, "fda.tsfeats")
 })
+
+test_that("PipeOpFDATSFeatures works", {
+  task = tsk("fuel")
+  pop = po("fda.tsfeats")
+  task_tsfeats = train_pipeop(pop, list(task))[[1L]]
+  new_data = task_tsfeats$data()
+  expect_task(task_tsfeats)
+  expect_identical(dim(new_data), c(129L, 34L))
+  expect_named(new_data, names(new_data))
+})