extended test

theme-ontology · Oct 17, 2023 · 4c2ee01 · 4c2ee01
1 parent 9d046fa
commit 4c2ee01
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/tests/testthat/test-def_collection.R b/tests/testthat/test-def_collection.R
@@ -21,8 +21,11 @@ Collection: Three Miscellaneous Twilight Zone Episodes
 tz1959e3x24
 tz1959e1x22
 tz1959e2x06")
-  collection_id <- unlist(strsplit(file, split = "\n"))[1]
+  collection_id <- "Collection: Three Miscellaneous Twilight Zone Episodes"
+  date <- "1959-1964"
+  description <- "Three miscellaneous Twilight Zone episodes used for testing purposes."
+  references <- "https://www.themeontology.org"
+  component_story_ids <- as_tibble_col(c("tz1959e3x24", "tz1959e1x22", "tz1959e2x06"), column_name = "component_story_ids")
   collection <- Collection$new(collection_id, file)
-  component_story_ids <- c("tz1959e3x24", "tz1959e1x22", "tz1959e2x06")
-  expect_equal(pull(collection$component_story_ids()), component_story_ids)
+  expect_equal(collection$component_story_ids(), component_story_ids)
 })