Merge pull request #63 from jennalenoble/add-source-to-tests

added sources to test files
DSCI-310-2023 · Mar 12, 2023 · d40f854 · d40f854
2 parents fc8d9ba + b91c17c
commit d40f854
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 6 deletions.
diff --git a/tests/bar_plot_tests.R b/tests/bar_plot_tests.R
@@ -1,10 +1,7 @@
 library(testthat)
 
-source("../../R/bar_plot.R")
-
-#helper function 
-bar_iris <- bar_graph(iris, iris$Species, iris$Sepal.Width, "Species", "Sepal Width", "Species", "Iris Graph")
-
+source("./R/bar_plot.R")
+source("./tests/bar_plot_tests_helper.R")
 
 #test for input variables
 test_that("Function can only accept certain data types for arguments", {

diff --git a/tests/bar_plot_tests_helper.R b/tests/bar_plot_tests_helper.R
@@ -0,0 +1,4 @@
+#helper function  
+
+source("./R/bar_plot.R")
+bar_iris <- bar_graph(iris, iris$Species, iris$Sepal.Width, "Species", "Sepal Width", "Species", "Iris Graph")
diff --git a/tests/hist_plot_tests.R b/tests/hist_plot_tests.R
@@ -2,6 +2,7 @@ library(testthat)
 library(ggcheck)
 
 source("./R/hist_plot.R")
+source("./tests/hist_plot_tests_helper.R")
 
 #test for input variables
 test_that("Function can only accept certain data types for arguments", {

diff --git a/tests/scatter_plot_tests.R b/tests/scatter_plot_tests.R
@@ -3,6 +3,7 @@ library(ggcheck)
 library(testthat)
 
 source("./R/scatter_plot.R")
+source("./tests/scatter_plot_tests_helper.R")
 
 #test for input variables
 test_that("Function can only accept certain data types for arguments", {

diff --git a/tests/test-summarize_column.R b/tests/test-summarize_column.R
@@ -1,7 +1,8 @@
 library(testthat)
 library("dplyr")
 
-source("~/dsci-310-group-09/R/summarize_column.R")
+source("./R/summarize_column.R")
+source("./tests/helper-summarize_column.R")
 
 test_that("summarize_column function returns a df or df extension", {
   expect_s3_class(summarize_column(mtcars, mpg), "data.frame")