tests/testthat/test-CLASS_seq_ttest_arguments.R

context(("CLASS_seq_ttest_arguments: Check class"))

test_that("CLASS_seq_ttest_arguments: Check getters", {
  arguments <- build_prototype_seq_ttest_arguments()
  expect_equal(arguments["x"], arguments@x)
  expect_equal(arguments["y"], arguments@y)
  expect_equal(arguments["mu"], arguments@mu)
  expect_equal(arguments["d"], arguments@d)
  expect_equal(arguments["alpha"], arguments@alpha)
  expect_equal(arguments["power"], arguments@power)
  expect_equal(arguments["alternative"], arguments@alternative)
  expect_equal(arguments["paired"], arguments@paired)
  expect_equal(arguments["one_sample"], arguments@paired)
  expect_equal(arguments["data_name"], arguments@data_name)
  expect_equal(arguments["na.rm"], arguments@na.rm)

  expect_error(arguments["jewhf"], "Wrong slot name:")
})

Try the sprtt package in your browser

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

sprtt documentation built on July 9, 2023, 6:14 p.m.