From 9de266d847e55b8f5bb73f3d20dfdd5eaeda994c Mon Sep 17 00:00:00 2001
From: Garrick Aden-Buie <garrick@adenbuie.com>
Date: Tue, 15 Aug 2023 08:46:20 -0400
Subject: [PATCH] Fix test for leaflet v2.2.0

For rstudio/leaflet#876
---
 tests/testthat/test-movingmarker.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-movingmarker.R b/tests/testthat/test-movingmarker.R
index b663a3bc..b3a7cb6a 100644
--- a/tests/testthat/test-movingmarker.R
+++ b/tests/testthat/test-movingmarker.R
@@ -32,8 +32,10 @@ test_that("movingmarker", {
                     popup="Arrr")
   expect_is(m, "leaflet")
   expect_equal(m$x$calls[[1]]$method, "addMovingMarker")
-  expect_equal(m$dependencies[[1]]$name, "lfx-movingmarker")
-  expect_equal(m$dependencies[[2]]$name, "leaflet-awesomemarkers")
+  expect_contains(
+    vapply(m$dependencies, function(x) x$name, character(1)),
+    c("lfx-movingmarker", "leaflet-awesomemarkers")
+  )
 
   ## Data is Simple Feature LINESTRING
   df <- sf::st_as_sf(atlStorms2005)[1,]