returnSize <- 100
fakeREST <- FakeRESTService$new(collectionContent, returnSize)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
resourceSize <- fish$getSizeInBytes()
collectionContent <- c("animal", "animal/fish")
fakeREST <- FakeRESTService$new(collectionContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
expect_that(fish$read(contentType = "text", offset = -1),
readContent <- "my file"
fakeREST <- FakeRESTService$new(collectionContent, readContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
fileContent <- fish$read("text")
collectionContent <- c("animal", "animal/fish")
fakeREST <- FakeRESTService$new(collectionContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
connection <- fish$connection("r")
collectionContent <- c("animal", "animal/fish")
fakeREST <- FakeRESTService$new(collectionContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
connection <- fish$connection("w")
collectionContent <- c("animal", "animal/fish")
fakeREST <- FakeRESTService$new(collectionContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
connection <- fish$connection("w")
collectionContent <- c("animal", "animal/fish")
fakeREST <- FakeRESTService$new(collectionContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
fileContent <- fish$write("new file content")
fakeREST <- FakeRESTService$new(collectionContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+
+ collection <- Collection$new(api, "myUUID")
dog <- collection$get("animal/dog")
expect_that(dog$move("objects/dog"),
fakeREST <- FakeRESTService$new(collectionContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
dog <- collection$get("animal/dog")
expect_that(dog$move("dog"),
fakeREST <- FakeRESTService$new(collectionContent)
- collection <- Collection$new("fakeUUID")
- collection$setRESTService(fakeREST)
+ api <- Arvados$new("myToken", "myHostName")
+ api$setRESTService(fakeREST)
+ collection <- Collection$new(api, "myUUID")
dog <- collection$get("animal/dog")
dog$move("dog")
expect_that(dogIsNullOnOldLocation, is_true())
expect_that(dogExistsOnNewLocation, is_true())
-})
+})