collection <- Collection$new(api, "myUUID")
expect_that(collection$move("fish", "object"),
- throws_error("Element you want to move doesn't exist in the collection.",
+ throws_error("Content you want to move doesn't exist in the collection.",
fixed = TRUE))
})
-test_that("getFileListing returns collection content received from REST service", {
+test_that("getFileListing returns sorted collection content received from REST service", {
collectionContent <- c("animal",
"animal/fish",