From 6a15f8617de121a406cee97b22e83e0c2c4bb034 Mon Sep 17 00:00:00 2001
From: Mervin Fansler <mmfansler@gmail.com>
Date: Sun, 3 Nov 2024 16:41:14 +0100
Subject: [PATCH] Skip test 1623 if '~' not defined (#6577)

* skip test 1623 if no '~' (fix #6576)

* document change
---
 inst/tests/tests.Rraw | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw
index d68130255..fef8f1fff 100644
--- a/inst/tests/tests.Rraw
+++ b/inst/tests/tests.Rraw
@@ -8912,8 +8912,8 @@ ans2[ , (date_cols) := lapply(.SD, as.IDate), .SDcols = date_cols]
 test(1622.1, ans1, ans2)
 test(1622.2, ans1, fread(testDir("issue_1573_fill.txt"), fill=TRUE, sep=" ", na.strings=""))
 
-# fix for #989
-test(1623, fread("~"), error="File '~' is a directory")
+# fix for #989; possibly skip for #6576
+if (dir.exists("~")) test(1623, fread("~"), error="File '~' is a directory")
 
 # testing print.rownames option, #1097 (part of #1523)
 options(datatable.print.rownames = FALSE)