From 16afaea0dd415aa263b20828f70e406afbc44959 Mon Sep 17 00:00:00 2001
From: njlyon0 <njlyon@alumni.iastate.edu>
Date: Fri, 3 May 2024 15:06:30 -0400
Subject: [PATCH] Tests for `ability_singular` and `ability_scores`

---
 tests/testthat/test-ability_scores.R | 53 ++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 tests/testthat/test-ability_scores.R

diff --git a/tests/testthat/test-ability_scores.R b/tests/testthat/test-ability_scores.R
new file mode 100644
index 0000000..8351813
--- /dev/null
+++ b/tests/testthat/test-ability_scores.R
@@ -0,0 +1,53 @@
+# Run all tests in this script:
+## testthat::test_file(file.path("tests", "testthat", "test-ability_scores.R"))
+
+# `ability_singular` Tests ----
+
+# Error testing
+test_that("Errors work as desired", {
+  expect_error(ability_singular(method = "5d4"))
+})
+
+# # Warning testing
+# test_that("Warnings work as desired", {
+#   # No warnings in this function
+# })
+
+# # Message testing
+# test_that("Messages work as desired", {
+#   # No messages in this function
+# })
+
+# Output testing
+test_that("Outputs are as expected", {
+  expect_equal(class(ability_singular()), "numeric")
+  expect_equal(class(ability_singular(method = "3d6")), "numeric")
+  expect_equal(class(ability_singular(method = "4d6")), "numeric")
+  expect_equal(class(ability_singular(method = "d20")), "numeric")
+  expect_equal(class(ability_singular(method = "1d20")), "numeric")
+})
+
+# `ability_scores` Tests ----
+
+# Error testing
+test_that("Errors work as desired", {
+  expect_error(ability_scores(method = "5d4", quiet = TRUE))
+})
+
+# Warning testing
+test_that("Warnings work as desired", {
+  ## Malformed logical
+  expect_warning(ability_scores(method = "4d6", quiet = "true"))
+})
+
+# # Message testing
+# test_that("Messages work as desired", {
+#   ## Risky to test this because message is dependent on random output
+#   expect_message(ability_scores(method = "1d20", quiet = FALSE))
+# })
+
+# Output testing
+test_that("Outputs are as expected", {
+  my_stats <- ability_scores(method = "4d6", quiet = TRUE)
+  expect_equal(class(my_stats), "data.frame")
+})