tests: count get responses before making a POST request

Otherwise a post may be received before get and returned value
will be wrong.

Signed-off-by: Bruno Dilly <bruno.dilly@intel.com>

Author: bdilly

src/test-fbp/http-boolean.fbp

@@ -29,7 +29,8 @@
 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 constant-server(constant/boolean:value=true)
-constant-client(test/boolean-generator:sequence="F")
+response-count(int/accumulator:setup_value=0|2)
+constant-client(converter/empty-to-boolean:output_value=false)
 string(constant/string:value="true")
 json-str(constant/string:value="{\"/test\":true}")
 
@@ -66,6 +67,10 @@ json-str OUT -> IN[0] json-compare
 get-json OBJECT -> IN json-blob OUT -> IN blob-str
 blob-str OUT -> IN[1] json-compare
 
+get-blob OUT -> INC response-count
+get-string OUT -> INC response-count
+get-json OBJECT -> INC response-count
+response-count OVERFLOW -> IN constant-client
 constant-client OUT -> POST post
 
 server-validator OUT -> RESULT test_server_output(test/result)

src/test-fbp/http-drange.fbp

@@ -29,7 +29,8 @@
 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 constant-server(constant/float:value=1.5,value_spec=min:0|max:100|step:2.1415)
-constant-client(test/float-generator:sequence="5.4")
+response-count(int/accumulator:setup_value=0|2)
+constant-client(converter/empty-to-float:output_value=5.4)
 string(constant/string:value="1.5")
 json-str(constant/string:value="{\"/test\":{\"value\":1.5,\"min\":0,\"max\":100,\"step\":2.1415}}")
 
@@ -66,6 +67,10 @@ json-str OUT -> IN[0] json-compare
 get-json OBJECT -> IN json-blob OUT -> IN blob-str
 blob-str OUT -> IN[1] json-compare
 
+get-blob OUT -> INC response-count
+get-string OUT -> INC response-count
+get-json OBJECT -> INC response-count
+response-count OVERFLOW -> IN constant-client
 constant-client OUT -> POST post
 
 server-validator OUT -> RESULT test_server_output(test/result)

src/test-fbp/http-irange.fbp

@@ -29,7 +29,8 @@
 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 constant-server(constant/int:value=1,value_spec=min:0|max:100|step:1)
-constant-client(test/int-generator:sequence="5")
+response-count(int/accumulator:setup_value=0|2)
+constant-client(converter/empty-to-int:output_value=5)
 string(constant/string:value="1")
 json-str(constant/string:value="{\"/test\":{\"value\":1,\"min\":0,\"max\":100,\"step\":1}}")
 
@@ -66,6 +67,10 @@ json-str OUT -> IN[0] json-compare
 get-json OBJECT -> IN json-blob OUT -> IN blob-str
 blob-str OUT -> IN[1] json-compare
 
+get-blob OUT -> INC response-count
+get-string OUT -> INC response-count
+get-json OBJECT -> INC response-count
+response-count OVERFLOW -> IN constant-client
 constant-client OUT -> POST post
 
 server-validator OUT -> RESULT test_server_output(test/result)

src/test-fbp/http-string.fbp

@@ -29,7 +29,8 @@
 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 constant-server(constant/string:value="hello")
-constant-client(test/string-generator:sequence="world")
+response-count(int/accumulator:setup_value=0|2)
+constant-client(converter/empty-to-string:output_value="world")
 json-str(constant/string:value="{\"/test\":\"hello\"}")
 
 json-blob(converter/json-object-to-blob)
@@ -65,6 +66,10 @@ json-str OUT -> IN[0] json-compare
 get-json OBJECT -> IN json-blob OUT -> IN blob-str
 blob-str OUT -> IN[1] json-compare
 
+get-blob OUT -> INC response-count
+get-string OUT -> INC response-count
+get-json OBJECT -> INC response-count
+response-count OVERFLOW -> IN constant-client
 constant-client OUT -> POST post
 
 server-validator OUT -> RESULT test_server_output(test/result)