tests/testthat/test-Pwr.R

In nnR: Neural Networks Made Algebraic

test_that("That Prd appropriately checks for q and eps", {
  Pwr(1.5, 0.1, 2) |> expect_error()
  Pwr(2.1, -0.5, 2) |> expect_error()

  Pwr(2.1, 0.1, 0) |> expect_no_error()
  Pwr(2.1, 0.1, 1) |> expect_no_error()
  Pwr(2.1, 0.1, 2) |> expect_no_error()
  Pwr(2.1, 0.1, 3) |> expect_no_error()
  Pwr(2.1, 0.1, 4) |> expect_no_error()
})