Merge pull request #7 from mikemahoney218/main

Stop checking attributes (fixes #6)
chris-prener · Jan 7, 2024 · bb1d7db · bb1d7db
2 parents 6352e52 + 0ab65f7
commit bb1d7db
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/tests/testthat/test_4_qm_create.R b/tests/testthat/test_4_qm_create.R
@@ -107,17 +107,17 @@ resultV1 <- qm_create(ref = test_sf, key = "TRACTCE", value = test_cluster, rid
 resultV2 <- qm_create(ref = test_sf, key = TRACTCE, value = test_cluster, rid = 1, cid = 1, category = "positive")
 
 test_that("returns TRUE - test result 1 matches test_tbl2", {
-  expect_equal(resultV1, test_tbl2)
+  expect_equal(resultV1, test_tbl2, check.attributes = FALSE)
 })
 
 test_that("returns TRUE - test result 2 matches test_tbl2", {
-  expect_equal(resultV2, test_tbl2)
+  expect_equal(resultV2, test_tbl2, check.attributes = FALSE)
 })
 
 resultV3 <- qm_create(ref = test_sf, key = "TRACTCE", value = test_cluster, rid = 1, cid = 1, category = "positive", NAME)
 
 test_that("returns TRUE - test result 3 matches test_tbl3", {
-  expect_equal(resultV3, test_tbl3)
+  expect_equal(resultV3, test_tbl3, check.attributes = FALSE)
 })
 
 objV1 <- qm_is_cluster(resultV1)

diff --git a/tests/testthat/test_5_qm_combine.R b/tests/testthat/test_5_qm_combine.R
@@ -71,13 +71,13 @@ expect_error(qm_combine(cluster4a_obj, cluster5_obj, cluster6_obj),
 clustersV1 <- qm_combine(cluster1_obj, cluster2_obj, cluster3_obj)
 
 test_that("returns TRUE - test result 1 matches test_tbl2", {
-  expect_equal(clustersV1, test_obj2)
+  expect_equal(clustersV1, test_obj2, check.attributes = FALSE)
 })
 
 clustersV2 <- qm_combine(cluster4b_obj, cluster5_obj, cluster6_obj)
 
 test_that("returns TRUE - test result 2 matches test_tbl3", {
-  expect_equal(clustersV2, test_obj3)
+  expect_equal(clustersV2, test_obj3, check.attributes = FALSE)
 })
 
 objV1 <- qm_is_cluster(clustersV1)