make[Fig|Dat]Name test

ComputationalProteomicsUnit · Jan 8, 2017 · c6c5c95 · c6c5c95
1 parent fbf25a4
commit c6c5c95
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test_files.R b/tests/testthat/test_files.R
@@ -12,3 +12,8 @@ test_that("pdf and png", {
     unlink(paste0(f, ".pdf"))
     unlink(paste0(f, ".png"))
 })
+
+test_that("make[Dat|Fig]Name", {
+    expect_identical(makeFigName("foo", date = FALSE), "./Fig-foo.pdf")
+    expect_identical(makeDatName("foo", date = FALSE), "./Dat-foo.rda")
+})