From 31cc552bc62a73d5bf938c26f633b4c39498d514 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= <maelle.salmon@yahoo.se>
Date: Thu, 1 Nov 2018 16:58:44 +0100
Subject: [PATCH] fix test

---
 R/createPackageProject.R                   | 2 +-
 tests/testthat/test-createPackageProject.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/createPackageProject.R b/R/createPackageProject.R
index e324275..a0d6337 100644
--- a/R/createPackageProject.R
+++ b/R/createPackageProject.R
@@ -22,7 +22,7 @@ createPackageProject <- function(name, folder = getwd(),
                                  private = TRUE) {
   tryCatch({
     if (is_available(name)) {
-      fs::dir_create(file.path(folder, name))
+      dir.create(file.path(folder, name))
       usethis::proj_set(file.path(folder, name),
                         force = TRUE)
       usethis::create_package(file.path(folder, name), open = FALSE,
diff --git a/tests/testthat/test-createPackageProject.R b/tests/testthat/test-createPackageProject.R
index b27d185..f1ff6c0 100644
--- a/tests/testthat/test-createPackageProject.R
+++ b/tests/testthat/test-createPackageProject.R
@@ -39,7 +39,7 @@ usethis::proj_set(getwd())
 
 test_that("createPackageProject() cleans if there was an error", {
   m <- mockery::mock(stop())
-  with_mock(is_available = m, {
+  with_mock(dir.create = m, {
     expect_message(createPackageProject("blablabla"),
                    "Oops")
   })