From 4db89f0b43dd014b0e879f03dce01be54d76ff83 Mon Sep 17 00:00:00 2001
From: Szymon Maksymiuk <32574056+maksymiuks@users.noreply.github.com>
Date: Mon, 14 Oct 2024 15:01:56 +0200
Subject: [PATCH 1/2] Update test_dotlibPaths.R

---
 tests/test_dotlibPaths.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/test_dotlibPaths.R b/tests/test_dotlibPaths.R
index de5557d..05b7041 100644
--- a/tests/test_dotlibPaths.R
+++ b/tests/test_dotlibPaths.R
@@ -1,4 +1,4 @@
-source("helper/helper.R")
+.source("helper/helper.R")
 
 f = get(".libPaths", envir = baseenv())
 expect_same = makeCompareFun(f, backports:::.libPaths)
@@ -15,4 +15,4 @@ if (getRversion() >= "4.1.0") {
   .libPaths(f, include.site = FALSE)
   expect_same()
 }
-.libPaths(save, include.site = length(.Library.site) && .Library.site %in% save)
+.libPaths(save, include.site = length(.Library.site) && any(.Library.site %in% save))

From f39640bbfb56fc895e722c702fd416560c8928ca Mon Sep 17 00:00:00 2001
From: Szymon Maksymiuk <32574056+maksymiuks@users.noreply.github.com>
Date: Mon, 14 Oct 2024 15:03:15 +0200
Subject: [PATCH 2/2] Update test_dotlibPaths.R

---
 tests/test_dotlibPaths.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test_dotlibPaths.R b/tests/test_dotlibPaths.R
index 05b7041..f4c51ca 100644
--- a/tests/test_dotlibPaths.R
+++ b/tests/test_dotlibPaths.R
@@ -1,4 +1,4 @@
-.source("helper/helper.R")
+source("helper/helper.R")
 
 f = get(".libPaths", envir = baseenv())
 expect_same = makeCompareFun(f, backports:::.libPaths)