tests/testthat/test-pipes.R

test_that("simple pipe", {
  pr <- as.PowerRelation('ab > a > b')

  expect_equal(testRelation(pr, 'a'), list(pr, 'a'))
  expect_equal(pr %:% 'a', testRelation(pr, 'a'))
})
jassler/socialranking documentation built on March 29, 2025, 5:23 a.m.