From 4a58ac832ff0d0f48690e18cb2e8778de3c07a26 Mon Sep 17 00:00:00 2001
From: Rich FitzJohn <r.fitzjohn@imperial.ac.uk>
Date: Tue, 22 Oct 2024 10:04:47 +0100
Subject: [PATCH] Drop test

---
 tests/testthat/test-example.R | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/tests/testthat/test-example.R b/tests/testthat/test-example.R
index 420f22c9..a90398bc 100644
--- a/tests/testthat/test-example.R
+++ b/tests/testthat/test-example.R
@@ -1,18 +1,3 @@
-test_that("can use self destructing paths", {
-  res <- local({
-    res <- local({
-      tmp <- withr::local_tempfile()
-      path <- suppressMessages(orderly_example("default", dest = NULL))
-      list(path = path, exists_inner = file.exists(path))
-    })
-    res$exists_outer <- file.exists(res$path)
-    res
-  })
-  expect_true(res$exists_inner)
-  expect_false(res$exists_outer)
-})
-
-
 test_that("can use custom path", {
   path <- withr::local_tempfile()
   res <- suppressMessages(orderly_example("default", dest = path))