Equality in sets, not order, for sometimes order seems to change

IQSS · May 10, 2024 · 1d193a2 · 1d193a2
1 parent fe3751a
commit 1d193a2
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/tests/testthat/tests-get_dataset.R b/tests/testthat/tests-get_dataset.R
@@ -23,15 +23,15 @@ test_that("download tab from DOI and filename", {
   expect_equal(nrow(files)                  , 2L)
   expect_equal(ncol(files)                  , 22L)
 
-  expect_equal(files$label            , c("roster-bulls-1996.tab", "vector-basketball.svg"))
-  expect_equal(files$restricted       , c(FALSE, FALSE))
-  expect_equal(files$version          , c(3L, 2L))
-  expect_equal(files$datasetVersionId , c(actual$id, actual$id))
-  expect_equal(files$directoryLabel   , c(NA, "resources"))
-  expect_equal(files$id               , c(1734005L, 1734006L))
-  expect_equal(files$persistentId     , c("doi:10.70122/FK2/HXJVJU/SA3Z2V", "doi:10.70122/FK2/HXJVJU/FHV8ZB"))
-  expect_equal(files$pidURL           , c("https://doi.org/10.70122/FK2/HXJVJU/SA3Z2V", "https://doi.org/10.70122/FK2/HXJVJU/FHV8ZB"))
-  expect_equal(files$filename         , c("roster-bulls-1996.tab", "vector-basketball.svg"))
+  expect_setequal(files$label            , c("roster-bulls-1996.tab", "vector-basketball.svg"))
+  expect_setequal(files$restricted       , c(FALSE, FALSE))
+  expect_setequal(files$version          , c(3L, 2L))
+  expect_setequal(files$datasetVersionId , c(actual$id, actual$id))
+  expect_setequal(files$directoryLabel   , c(NA, "resources"))
+  expect_setequal(files$id               , c(1734005L, 1734006L))
+  expect_setequal(files$persistentId     , c("doi:10.70122/FK2/HXJVJU/SA3Z2V", "doi:10.70122/FK2/HXJVJU/FHV8ZB"))
+  expect_setequal(files$pidURL           , c("https://doi.org/10.70122/FK2/HXJVJU/SA3Z2V", "https://doi.org/10.70122/FK2/HXJVJU/FHV8ZB"))
+  expect_setequal(files$filename         , c("roster-bulls-1996.tab", "vector-basketball.svg"))
   # expect_equal(files$description      , c(NA, "CC-0-from-https://publicdomainvectors.org/en/free-clipart/Basketball-vector-symbol/69448.html"))
 
 })