test(pull_data): Tests for vector of common name

@chantelwetzel-noaa this test is currently failing because when you use
a vector of common names the number of entries is doubled for a single
species. For example, lingcod has 705 rows but when I pull for lingcod
and sablefish I am getting 1410 rows of lingcod. I haven't delved into
this further as of yet.

tests/testthat/test-data.R

@@ -31,6 +31,30 @@ test_that("pull_catch-multispecies", {
   expect_equal(nrow(dat), 350126)
   expect_equal(length(which(dat$cpue_kg_km2 == 0)), 330971)
 
+  dat_lingcod <- pull_catch(
+    common_name = "lingcod",
+    years = c(2017),
+    survey = "NWFSC.Combo",
+    verbose = TRUE
+  )
+  dat_lingcod_sablefish <- pull_catch(
+    common_name = c("lingcod", "sablefish"),
+    years = c(2017),
+    survey = "NWFSC.Combo",
+    verbose = TRUE
+  )
+  expect_equal(
+    NROW(dplyr::filter(dat, Common_name == "lingcod")),
+    NROW(dat_lingcod),
+    label = "entries of all species filtered for lingcod",
+    expected.label = "entries of lingcod"
+  )
+  expect_equal(
+    NROW(dplyr::filter(dat_lingcod_sablefish, Common_name == "lingcod")),
+    NROW(dat_lingcod),
+    label = "entries of 2 species filtered for lingcod",
+    expected.label = "entries of lingcod"
+  )
 })
 
 test_that("PullHaul", {