From 4c2ee018dc30fdcf02b567830479eceb60441a4b Mon Sep 17 00:00:00 2001 From: paul-sheridan Date: Tue, 17 Oct 2023 14:54:52 -0300 Subject: [PATCH] extended test --- tests/testthat/test-def_collection.R | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-def_collection.R b/tests/testthat/test-def_collection.R index e2e4282..cd70a13 100644 --- 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) })