diff --git a/tests/testthat/test_4_qm_create.R b/tests/testthat/test_4_qm_create.R index b5870b8..66459f4 100644 --- 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 index d361ce7..6beb236 100644 --- 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)