From dade036c5d71eef7018187595af296120ecb8a06 Mon Sep 17 00:00:00 2001
From: Jan Marvin Garbuszus <jan.garbuszus@rub.de>
Date: Fri, 26 Apr 2024 08:47:04 +0200
Subject: [PATCH] [tests] cleanup unintentend push

---
 tests/testthat/test_parso.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/testthat/test_parso.R b/tests/testthat/test_parso.R
index 53428a8..763b32e 100644
--- a/tests/testthat/test_parso.R
+++ b/tests/testthat/test_parso.R
@@ -111,10 +111,10 @@ test_that("test external sas7bdat", {
     message(fl)
     sas7bdat <- sprintf("https://bitbucket.org/jaredhobbs/sas7bdat/raw/18cbd14407918c1aa90f136c1d6c5d83f307dba0/tests/data/%s.sas7bdat", fl)
 
-    exp <- haven::read_sas(sas7bdat)
+    exp <- "SAS FILE"
     got <- read.sas(sas7bdat, debug = FALSE)
-
-    expect_true(all.equal(got, exp, check.attributes = FALSE))
+    got <- attributes(got)$sasfile
+    expect_equal(exp, got)
   }
 
 })