Merge branch '12840-cancelled-pipeline'

[arvados.git] / 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 bd46b49283fa87911ae366520c96e0fee8d8181f..865234d83552db7965f1d4077085a9f83c65ec4e 100644 (file)
--- a/sdk/R/tests/testthat/fakes/FakeHttpParser.R
+++ b/sdk/R/tests/testthat/fakes/FakeHttpParser.R
@@ -36,12 +36,20 @@ FakeHttpParser <- R6::R6Class(
         getFileNamesFromResponse = function(serverResponse, uri)
         {
             self$parserCallCount <- self$parserCallCount + 1
+
+            if(!is.null(serverResponse$content))
+                return(serverResponse$content)
+
             serverResponse
         },
 
         getFileSizesFromResponse = function(serverResponse, uri)    
         {
             self$parserCallCount <- self$parserCallCount + 1
+
+            if(!is.null(serverResponse$content))
+                return(serverResponse$content)
+
             serverResponse
         }
     )