[tests] cleanup unintentend push

JanMarvin · Apr 26, 2024 · dade036 · dade036
1 parent 756bc2c
commit dade036
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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)
  }
 
 })