From c6c5c95067bd67b3c27e8791841e32c2944be867 Mon Sep 17 00:00:00 2001
From: Laurent <lg390@cam.ac.uk>
Date: Sun, 8 Jan 2017 20:57:21 +0000
Subject: [PATCH] make[Fig|Dat]Name test

---
 tests/testthat/test_files.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/testthat/test_files.R b/tests/testthat/test_files.R
index b526a35..40bd005 100644
--- 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")
+})