tests/testthat/test-builders.R

test_that("add-component works for functions", {
  pipeline = Pipeline()
  pipeline = pipeline |>
    add_node(component = read.csv, name = "reader", input = NULL)

  expect_equal(length(pipeline$nodes), 1)
})

test_that("add-component works for splitter", {
  pipeline = Pipeline()
  pipeline = pipeline |>
    add_node(component = Splitter(), name = "reader", input = NULL)

  expect_equal(length(pipeline$nodes), 1)
})

Try the sewage package in your browser

Any scripts or data that you put into this service are public.

sewage documentation built on May 31, 2023, 9:29 p.m.