tests/testthat/test-my_t.R

In Codax2000/mypackage: Project 3 Package for STAT 302

test_that("two sided works", {
  local_penguins <- na.omit(my_penguins)
  result <- my_t.test(local_penguins$bill_depth_mm, "two.sided", 15)
  expect_equal(result$alternative, "two.sided")
  expect_true(result$test_stat - 20.06112 < 0.001)
  expect_equal(result$df, 332)
})
test_that("less than works", {
  local_penguins <- na.omit(my_penguins)
  result <- my_t.test(local_penguins$bill_depth_mm, "less", 15)
  expect_equal(result$alternative, "less")
  expect_true(result$test_stat - 20.06112 < 0.001)
  expect_equal(result$df, 332)
})
test_that("greater than works", {
  local_penguins <- na.omit(my_penguins)
  result <- my_t.test(local_penguins$bill_depth_mm, "greater", 15)
  expect_equal(result$alternative, "greater")
  expect_true(result$test_stat - 20.06112 < 0.001)
  expect_equal(result$df, 332)
})
test_that("passing larger sample mean with two-sided works", {
  local_penguins <- na.omit(my_penguins)
  result <- my_t.test(local_penguins$bill_depth_mm, "two.sided", 18)
  expect_equal(result$alternative, "two.sided")
  expect_equal(result$df, 332)
  expect_true(result$test_stat + 7.739 < 0.01)
})
test_that("passing a bad alternative fails", {
  local_penguins <- na.omit(my_penguins)
  expect_error(my_t.test(local_penguins$bill_depth_mm, "failing", 18))
})