Fix test for updated feature

ericnewkirk · Mar 9, 2020 · 5e8f088 · 5e8f088
1 parent 396c399
commit 5e8f088
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_selected_data.R b/tests/testthat/test_selected_data.R
@@ -8,6 +8,6 @@ test_that("'get_selected_data' return null when excelObj is null ", {
 
 test_that ("'get_selected_data' return a data frame when excelObj is not null", {
   data <- matrix(1:50, ncol=5)
-  excelObj <- list(data=c(unname(as.data.frame(data))), colHeaders=as.list(c(rep("",5))), forSelectedVals = TRUE)
+  excelObj <- list(selectedData=c(unname(as.data.frame(data))), colHeaders=as.list(c(rep("",5))), forSelectedVals = TRUE)
   testthat::expect_s3_class(get_selected_data(excelObj), "data.frame")
 })