X-Git-Url: https://git.arvados.org/arvados.git/blobdiff_plain/c2a07597440e4db06481d2532adc317331df441b..fba33040ea730ccc30035557226fc1a1de32ba6e:/sdk/R/tests/testthat/test-RESTService.R?ds=sidebyside diff --git a/sdk/R/tests/testthat/test-RESTService.R b/sdk/R/tests/testthat/test-RESTService.R index abc34d9565..26f459b173 100644 --- a/sdk/R/tests/testthat/test-RESTService.R +++ b/sdk/R/tests/testthat/test-RESTService.R @@ -1,3 +1,7 @@ +# Copyright (C) The Arvados Authors. All rights reserved. +# +# SPDX-License-Identifier: Apache-2.0 + source("fakes/FakeArvados.R") source("fakes/FakeHttpRequest.R") source("fakes/FakeHttpParser.R") @@ -10,7 +14,7 @@ test_that("getWebDavHostName calls REST service properly", { serverResponse <- list(keepWebServiceUrl = "https://myWebDavServer.com") httpRequest <- FakeHttpRequest$new(expectedURL, serverResponse) - REST <- RESTService$new("token", "host", NULL, + REST <- RESTService$new("token", "host", httpRequest, FakeHttpParser$new()) REST$getWebDavHostName() @@ -18,260 +22,18 @@ test_that("getWebDavHostName calls REST service properly", { expect_that(httpRequest$URLIsProperlyConfigured, is_true()) expect_that(httpRequest$requestHeaderContainsAuthorizationField, is_true()) expect_that(httpRequest$numberOfGETRequests, equals(1)) -}) +}) test_that("getWebDavHostName returns webDAV host name properly", { serverResponse <- list(keepWebServiceUrl = "https://myWebDavServer.com") httpRequest <- FakeHttpRequest$new(expectedURL = NULL, serverResponse) - REST <- RESTService$new("token", "host", NULL, - httpRequest, FakeHttpParser$new()) - - expect_that("https://myWebDavServer.com", equals(REST$getWebDavHostName())) -}) - -test_that("getResource calls REST service properly", { - - serverResponse <- NULL - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - expectedURL <- paste0("https://host/arvados/v1/collections/", resourceUUID) - - httpRequest <- FakeHttpRequest$new(expectedURL, serverResponse) - - REST <- RESTService$new("token", "host", "webDavHost", - httpRequest, FakeHttpParser$new()) - - REST$getResource("collections", resourceUUID) - - expect_that(httpRequest$URLIsProperlyConfigured, is_true()) - expect_that(httpRequest$requestHeaderContainsAuthorizationField, is_true()) - expect_that(httpRequest$numberOfGETRequests, equals(1)) -}) - -test_that("getResource parses server response", { - - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - httpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(), httpParser) - - REST$getResource("collections", resourceUUID) - - expect_that(httpParser$parserCallCount, equals(1)) -}) - -test_that("getResource raises exception if response contains errors field", { - - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - serverResponse <- list(errors = 404) - - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(NULL, serverResponse), - FakeHttpParser$new()) - - expect_that(REST$getResource("collections", resourceUUID), throws_error(404)) -}) - -test_that("listResources calls REST service properly", { - - serverResponse <- NULL - expectedURL <- paste0("https://host/arvados/v1/collections") - httpRequest <- FakeHttpRequest$new(expectedURL, serverResponse) - - REST <- RESTService$new("token", "host", "webDavHost", - httpRequest, FakeHttpParser$new()) - - REST$listResources("collections") - - expect_that(httpRequest$URLIsProperlyConfigured, is_true()) - expect_that(httpRequest$requestHeaderContainsAuthorizationField, is_true()) - expect_that(httpRequest$numberOfGETRequests, equals(1)) -}) - -test_that("listResources parses server response", { - - httpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(), httpParser) - - REST$listResources("collections") - - expect_that(httpParser$parserCallCount, equals(1)) -}) - -test_that("listResources raises exception if response contains errors field", { - - serverResponse <- list(errors = 404) - - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(NULL, serverResponse), - FakeHttpParser$new()) - - expect_that(REST$listResources("collections"), throws_error(404)) -}) - -test_that("fetchAllItems always returns all resource items from server", { - - expectedURL <- NULL - serverResponse <- list(items_available = 8, - items = list("collection1", - "collection2", - "collection3", - "collection4", - "collection5", - "collection6", - "collection7", - "collection8")) - - httpParser <- FakeHttpParser$new() - httpRequest <- FakeHttpRequest$new(expectedURL, serverResponse) - httpRequest$serverMaxElementsPerRequest <- 3 - - REST <- RESTService$new("token", "host", "webDavHost", - httpRequest, httpParser) - - result <- REST$fetchAllItems(NULL, NULL) - - expect_that(length(result), equals(8)) - expect_that(httpRequest$numberOfGETRequests, equals(3)) - expect_that(httpParser$parserCallCount, equals(3)) -}) - -test_that("deleteResource calls REST service properly", { - - serverResponse <- NULL - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - expectedURL <- paste0("https://host/arvados/v1/collections/", resourceUUID) - - httpRequest <- FakeHttpRequest$new(expectedURL, serverResponse) - - REST <- RESTService$new("token", "host", "webDavHost", + REST <- RESTService$new("token", "host", httpRequest, FakeHttpParser$new()) - REST$deleteResource("collections", resourceUUID) - - expect_that(httpRequest$URLIsProperlyConfigured, is_true()) - expect_that(httpRequest$requestHeaderContainsAuthorizationField, is_true()) - expect_that(httpRequest$numberOfDELETERequests, equals(1)) -}) - -test_that("deleteCollection parses server response", { - - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - httpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(), httpParser) - - REST$deleteResource("collections", resourceUUID) - - expect_that(httpParser$parserCallCount, equals(1)) -}) - -test_that("deleteCollection raises exception if response contains errors field", { - - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - serverResponse <- list(errors = 404) - - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(NULL, serverResponse), - FakeHttpParser$new()) - - expect_that(REST$deleteResource("collections", resourceUUID), throws_error(404)) -}) - -test_that("updateResource calls REST service properly", { - - serverResponse <- NULL - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - expectedURL <- paste0("https://host/arvados/v1/collections/", resourceUUID) - newResourceContent <- list(newName = "Brand new shiny name") - - httpRequest <- FakeHttpRequest$new(expectedURL, serverResponse) - - REST <- RESTService$new("token", "host", "webDavHost", - httpRequest, FakeHttpParser$new()) - - REST$updateResource("collections", resourceUUID, newResourceContent) - - expect_that(httpRequest$URLIsProperlyConfigured, is_true()) - expect_that(httpRequest$requestHeaderContainsAuthorizationField, is_true()) - expect_that(httpRequest$JSONEncodedBodyIsProvided, is_true()) - expect_that(httpRequest$numberOfPUTRequests, equals(1)) -}) - -test_that("updateResource parses server response", { - - newResourceContent <- list(newName = "Brand new shiny name") - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - httpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(), httpParser) - - REST$updateResource("collections", resourceUUID, newResourceContent) - - expect_that(httpParser$parserCallCount, equals(1)) -}) - -test_that("updateResource raises exception if response contains errors field", { - - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - serverResponse <- list(errors = 404) - newResourceContent <- list(newName = "Brand new shiny name") - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(NULL, serverResponse), - FakeHttpParser$new()) - - expect_that(REST$updateResource("collections", resourceUUID, newResourceContent), - throws_error(404)) -}) - -test_that("createResource calls REST service properly", { - - resourceContent <- list(name = "My favorite collection") - serverResponse <- NULL - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - expectedURL <- "https://host/arvados/v1/collections" - newResourceContent <- list(newName = "Brand new shiny name") - - httpRequest <- FakeHttpRequest$new(expectedURL, serverResponse) - - REST <- RESTService$new("token", "host", "webDavHost", - httpRequest, FakeHttpParser$new()) - - REST$createResource("collections", resourceContent) - - expect_that(httpRequest$URLIsProperlyConfigured, is_true()) - expect_that(httpRequest$requestHeaderContainsAuthorizationField, is_true()) - expect_that(httpRequest$JSONEncodedBodyIsProvided, is_true()) - expect_that(httpRequest$numberOfPOSTRequests, equals(1)) -}) - -test_that("createResource parses server response", { - - resourceContent <- list(newName = "Brand new shiny name") - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - httpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(), httpParser) - - REST$createResource("collections", resourceContent) - - expect_that(httpParser$parserCallCount, equals(1)) -}) - -test_that("createResource raises exception if response contains errors field", { - - resourceUUID <- "aaaaa-j7d0g-ccccccccccccccc" - serverResponse <- list(errors = 404) - resourceContent <- list(newName = "Brand new shiny name") - REST <- RESTService$new("token", "host", "webDavHost", - FakeHttpRequest$new(NULL, serverResponse), - FakeHttpParser$new()) - - expect_that(REST$createResource("collections", resourceContent), - throws_error(404)) -}) + expect_that("https://myWebDavServer.com", equals(REST$getWebDavHostName())) +}) test_that("create calls REST service properly", { @@ -280,15 +42,16 @@ test_that("create calls REST service properly", { fakeHttp <- FakeHttpRequest$new(expectedURL) fakeHttpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, fakeHttpParser) + REST <- RESTService$new("token", "https://host/", + fakeHttp, fakeHttpParser, + 0, "https://webDavHost/") REST$create("file", uuid) expect_that(fakeHttp$URLIsProperlyConfigured, is_true()) expect_that(fakeHttp$requestHeaderContainsAuthorizationField, is_true()) expect_that(fakeHttp$numberOfPUTRequests, equals(1)) -}) +}) test_that("create raises exception if server response code is not between 200 and 300", { @@ -297,12 +60,13 @@ test_that("create raises exception if server response code is not between 200 an response$status_code <- 404 fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, HttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, HttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$create("file", uuid), throws_error("Server code: 404")) -}) +}) test_that("delete calls REST service properly", { @@ -311,15 +75,16 @@ test_that("delete calls REST service properly", { fakeHttp <- FakeHttpRequest$new(expectedURL) fakeHttpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, fakeHttpParser) + REST <- RESTService$new("token", "https://host/", + fakeHttp, fakeHttpParser, + 0, "https://webDavHost/") REST$delete("file", uuid) expect_that(fakeHttp$URLIsProperlyConfigured, is_true()) expect_that(fakeHttp$requestHeaderContainsAuthorizationField, is_true()) expect_that(fakeHttp$numberOfDELETERequests, equals(1)) -}) +}) test_that("delete raises exception if server response code is not between 200 and 300", { @@ -328,12 +93,13 @@ test_that("delete raises exception if server response code is not between 200 an response$status_code <- 404 fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, HttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, HttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$delete("file", uuid), throws_error("Server code: 404")) -}) +}) test_that("move calls REST service properly", { @@ -342,8 +108,9 @@ test_that("move calls REST service properly", { fakeHttp <- FakeHttpRequest$new(expectedURL) fakeHttpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, fakeHttpParser) + REST <- RESTService$new("token", "https://host/", + fakeHttp, fakeHttpParser, + 0, "https://webDavHost/") REST$move("file", "newDestination/file", uuid) @@ -351,7 +118,7 @@ test_that("move calls REST service properly", { expect_that(fakeHttp$requestHeaderContainsAuthorizationField, is_true()) expect_that(fakeHttp$requestHeaderContainsDestinationField, is_true()) expect_that(fakeHttp$numberOfMOVERequests, equals(1)) -}) +}) test_that("move raises exception if server response code is not between 200 and 300", { @@ -360,12 +127,13 @@ test_that("move raises exception if server response code is not between 200 and response$status_code <- 404 fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, HttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, HttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$move("file", "newDestination/file", uuid), throws_error("Server code: 404")) -}) +}) test_that("getCollectionContent retreives correct content from WebDAV server", { @@ -377,8 +145,9 @@ test_that("getCollectionContent retreives correct content from WebDAV server", { fakeHttp <- FakeHttpRequest$new(expectedURL, returnContent) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, FakeHttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, FakeHttpParser$new(), + 0, "https://webDavHost/") returnResult <- REST$getCollectionContent(uuid) returnedContentMatchExpected <- all.equal(returnResult, @@ -386,7 +155,7 @@ test_that("getCollectionContent retreives correct content from WebDAV server", { expect_that(returnedContentMatchExpected, is_true()) expect_that(fakeHttp$requestHeaderContainsAuthorizationField, is_true()) -}) +}) test_that("getCollectionContent raises exception if server returns empty response", { @@ -394,24 +163,26 @@ test_that("getCollectionContent raises exception if server returns empty respons response <- "" fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, FakeHttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, FakeHttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$getCollectionContent(uuid), throws_error("Response is empty, request may be misconfigured")) -}) +}) test_that("getCollectionContent parses server response", { uuid <- "aaaaa-j7d0g-ccccccccccccccc" fakeHttpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - FakeHttpRequest$new(), fakeHttpParser) + REST <- RESTService$new("token", "https://host/", + FakeHttpRequest$new(), fakeHttpParser, + 0, "https://webDavHost/") REST$getCollectionContent(uuid) expect_that(fakeHttpParser$parserCallCount, equals(1)) -}) +}) test_that("getCollectionContent raises exception if server returns empty response", { @@ -419,12 +190,13 @@ test_that("getCollectionContent raises exception if server returns empty respons response <- "" fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, FakeHttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, FakeHttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$getCollectionContent(uuid), throws_error("Response is empty, request may be misconfigured")) -}) +}) test_that(paste("getCollectionContent raises exception if server", "response code is not between 200 and 300"), { @@ -434,12 +206,13 @@ test_that(paste("getCollectionContent raises exception if server", response$status_code <- 404 fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, HttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, HttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$getCollectionContent(uuid), throws_error("Server code: 404")) -}) +}) test_that("getResourceSize calls REST service properly", { @@ -451,8 +224,9 @@ test_that("getResourceSize calls REST service properly", { response$content <- c(6, 2, 931, 12003) fakeHttp <- FakeHttpRequest$new(expectedURL, response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, FakeHttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, FakeHttpParser$new(), + 0, "https://webDavHost/") returnResult <- REST$getResourceSize("file", uuid) returnedContentMatchExpected <- all.equal(returnResult, @@ -461,7 +235,7 @@ test_that("getResourceSize calls REST service properly", { expect_that(fakeHttp$URLIsProperlyConfigured, is_true()) expect_that(fakeHttp$requestHeaderContainsAuthorizationField, is_true()) expect_that(returnedContentMatchExpected, is_true()) -}) +}) test_that("getResourceSize raises exception if server returns empty response", { @@ -469,12 +243,13 @@ test_that("getResourceSize raises exception if server returns empty response", { response <- "" fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, FakeHttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, FakeHttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$getResourceSize("file", uuid), throws_error("Response is empty, request may be misconfigured")) -}) +}) test_that(paste("getResourceSize raises exception if server", "response code is not between 200 and 300"), { @@ -484,24 +259,26 @@ test_that(paste("getResourceSize raises exception if server", response$status_code <- 404 fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, HttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, HttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$getResourceSize("file", uuid), throws_error("Server code: 404")) -}) +}) test_that("getResourceSize parses server response", { uuid <- "aaaaa-j7d0g-ccccccccccccccc" fakeHttpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - FakeHttpRequest$new(), fakeHttpParser) + REST <- RESTService$new("token", "https://host/", + FakeHttpRequest$new(), fakeHttpParser, + 0, "https://webDavHost/") REST$getResourceSize("file", uuid) expect_that(fakeHttpParser$parserCallCount, equals(1)) -}) +}) test_that("read calls REST service properly", { @@ -513,8 +290,9 @@ test_that("read calls REST service properly", { fakeHttp <- FakeHttpRequest$new(expectedURL, serverResponse) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, FakeHttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, FakeHttpParser$new(), + 0, "https://webDavHost/") returnResult <- REST$read("file", uuid, "text", 1024, 512) @@ -522,7 +300,7 @@ test_that("read calls REST service properly", { expect_that(fakeHttp$requestHeaderContainsAuthorizationField, is_true()) expect_that(fakeHttp$requestHeaderContainsRangeField, is_true()) expect_that(returnResult, equals("file content")) -}) +}) test_that("read raises exception if server response code is not between 200 and 300", { @@ -531,46 +309,50 @@ test_that("read raises exception if server response code is not between 200 and response$status_code <- 404 fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, HttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, HttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$read("file", uuid), throws_error("Server code: 404")) -}) +}) test_that("read raises exception if contentType is not valid", { uuid <- "aaaaa-j7d0g-ccccccccccccccc" fakeHttp <- FakeHttpRequest$new() - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, HttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, HttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$read("file", uuid, "some invalid content type"), throws_error("Invalid contentType. Please use text or raw.")) -}) +}) test_that("read parses server response", { uuid <- "aaaaa-j7d0g-ccccccccccccccc" fakeHttpParser <- FakeHttpParser$new() - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - FakeHttpRequest$new(), fakeHttpParser) + REST <- RESTService$new("token", "https://host/", + FakeHttpRequest$new(), fakeHttpParser, + 0, "https://webDavHost/") REST$read("file", uuid, "text", 1024, 512) expect_that(fakeHttpParser$parserCallCount, equals(1)) -}) +}) test_that("write calls REST service properly", { - fileContent <- "new file content" + fileContent <- "new file content" uuid <- "aaaaa-j7d0g-ccccccccccccccc" expectedURL <- "https://webDavHost/c=aaaaa-j7d0g-ccccccccccccccc/file" fakeHttp <- FakeHttpRequest$new(expectedURL) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, FakeHttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, FakeHttpParser$new(), + 0, "https://webDavHost/") REST$write("file", uuid, fileContent, "text/html") @@ -578,19 +360,33 @@ test_that("write calls REST service properly", { expect_that(fakeHttp$requestBodyIsProvided, is_true()) expect_that(fakeHttp$requestHeaderContainsAuthorizationField, is_true()) expect_that(fakeHttp$requestHeaderContainsContentTypeField, is_true()) -}) +}) test_that("write raises exception if server response code is not between 200 and 300", { uuid <- "aaaaa-j7d0g-ccccccccccccccc" - fileContent <- "new file content" + fileContent <- "new file content" response <- list() response$status_code <- 404 fakeHttp <- FakeHttpRequest$new(serverResponse = response) - REST <- RESTService$new("token", "https://host/", "https://webDavHost/", - fakeHttp, HttpParser$new()) + REST <- RESTService$new("token", "https://host/", + fakeHttp, HttpParser$new(), + 0, "https://webDavHost/") expect_that(REST$write("file", uuid, fileContent, "text/html"), throws_error("Server code: 404")) -}) +}) + +test_that("getConnection calls REST service properly", { + uuid <- "aaaaa-j7d0g-ccccccccccccccc" + fakeHttp <- FakeHttpRequest$new() + + REST <- RESTService$new("token", "https://host/", + fakeHttp, FakeHttpParser$new(), + 0, "https://webDavHost/") + + REST$getConnection("file", uuid, "r") + + expect_that(fakeHttp$numberOfgetConnectionCalls, equals(1)) +})