Can't use test_that yet

tidyverse · Mar 28, 2016 · 10a3a20 · 10a3a20
1 parent 91a2b7b
commit 10a3a20
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-dates.R b/tests/testthat/test-dates.R
@@ -1,8 +1,8 @@
 context("Dates")
 
-test_that("dates respsect worksheet date sheeting", {
-  d1900 <- read_xls(test_path("dates-1900.xls"), col_names = FALSE)
-  d1904 <- read_xls(test_path("dates-1904.xls"), col_names = FALSE)
+test_that("dates respsect worksheet date setting", {
+  d1900 <- read_xls("dates-1900.xls", col_names = FALSE)
+  d1904 <- read_xls("dates-1904.xls", col_names = FALSE)
 
   expect_equal(d1900, d1904)
   expect_equal(d1900$X1, ISOdate(2000, 01, 01, 0, tz = "UTC"))