Add an equality test

epiverse-trace · Mar 4, 2024 · 40a0d3d · 40a0d3d
1 parent 2f7d25c
commit 40a0d3d
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-epichains.R b/tests/testthat/test-epichains.R
@@ -209,6 +209,18 @@ test_that("summary.epichains_tree works as expected", {
     chain_size_tree_sim_summary,
     "epichains_summary"
   )
+  expect_true(
+    setequal(
+      chain_size_tree_sim_summary,
+      chain_size_summary_sim
+    )
+  )
+  expect_true(
+    setequal(
+      chain_length_tree_sim_summary,
+      chain_length_summary_sim
+    )
+  )
 })
 
 test_that("validate_epichains_tree works", {