collection <- Collection$new(api, "myUUID")
expect_that(collection$create(10),
collection <- Collection$new(api, "myUUID")
expect_that(collection$create(10),
collection <- Collection$new(api, "myUUID")
expect_that(collection$remove(10),
collection <- Collection$new(api, "myUUID")
expect_that(collection$remove(10),
api$setRESTService(fakeREST)
collection <- Collection$new(api, "myUUID")
api$setRESTService(fakeREST)
collection <- Collection$new(api, "myUUID")
c("animal", "animal/fish", "ball"))
expect_that(contentMatchExpected, is_true())
c("animal", "animal/fish", "ball"))
expect_that(contentMatchExpected, is_true())