X-Git-Url: https://git.arvados.org/arvados.git/blobdiff_plain/1ece35a0faae97687c2dd370f6b8a61aaac505c2..649d52a70fd75e255437deb1798fa9f09697b78c:/sdk/R/tests/testthat/fakes/FakeHttpParser.R

diff --git a/sdk/R/tests/testthat/fakes/FakeHttpParser.R b/sdk/R/tests/testthat/fakes/FakeHttpParser.R
index 8252497d9b..c23283989a 100644
--- a/sdk/R/tests/testthat/fakes/FakeHttpParser.R
+++ b/sdk/R/tests/testthat/fakes/FakeHttpParser.R
@@ -1,30 +1,60 @@
+# Copyright (C) The Arvados Authors. All rights reserved.
+#
+# SPDX-License-Identifier: Apache-2.0
+
 FakeHttpParser <- R6::R6Class(
 
-    "HttrParser",
+    "FakeHttrParser",
 
     public = list(
 
+        validContentTypes = NULL,
         parserCallCount = NULL,
 
-        initialize = function() 
+        initialize = function()
         {
             self$parserCallCount <- 0
+            self$validContentTypes <- c("text", "raw")
         },
 
-        parseJSONResponse = function(serverResponse) 
+        parseJSONResponse = function(serverResponse)
         {
             self$parserCallCount <- self$parserCallCount + 1
+
+            if(!is.null(serverResponse$content))
+                return(serverResponse$content)
+
+            serverResponse
+        },
+
+        parseResponse = function(serverResponse, outputType)
+        {
+            self$parserCallCount <- self$parserCallCount + 1
+
+            if(!is.null(serverResponse$content))
+                return(serverResponse$content)
+
             serverResponse
         },
 
-        parseWebDAVResponse = function(response, uri)
+        getFileNamesFromResponse = function(serverResponse, uri)
         {
-            response
+            self$parserCallCount <- self$parserCallCount + 1
+
+            if(!is.null(serverResponse$content))
+                return(serverResponse$content)
+
+            serverResponse
         },
 
-        extractFileSizeFromWebDAVResponse = function(response, uri)    
+        getFileSizesFromResponse = function(serverResponse, uri)
         {
-            response
+            self$parserCallCount <- self$parserCallCount + 1
+
+            if(!is.null(serverResponse$content))
+                return(serverResponse$content)
+
+            serverResponse
         }
     )
 )