From 0bbc57969dced9447889ce7bd8983a57ef4e242e Mon Sep 17 00:00:00 2001
From: Ofek Shilon <ofekshilon@gmail.com>
Date: Mon, 24 Oct 2022 11:28:21 +0300
Subject: [PATCH] Fix #5285 - make tests more robust to options

---
 R/test.data.table.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/test.data.table.R b/R/test.data.table.R
index 298fc34c13..6470ab2768 100644
--- a/R/test.data.table.R
+++ b/R/test.data.table.R
@@ -76,6 +76,8 @@ test.data.table = function(script="tests.Rraw", verbose=FALSE, pkg=".", silent=F
   if (is.null(options()$warnPartialMatchAttr))   options(warnPartialMatchAttr=FALSE)   # now otherwise options(oldOptions) fails later.
   if (is.null(options()$warnPartialMatchDollar)) options(warnPartialMatchDollar=FALSE)
   oldOptions = options(
+    warn=1,
+    digits=7,
     datatable.verbose = verbose,
     encoding = "UTF-8",  # just for tests 708-712 on Windows
     scipen = 0L,  # fwrite now respects scipen