Merge pull request #150 from VBA-tools/addbodyparameter-caching

Clear cached body on AddBodyParameter

Author: timhall

specs/Specs_WebRequest.bas

@@ -311,6 +311,18 @@ Public Function Specs() As SpecSuite
         .Expect(Request.Body).ToEqual "{""A"":123,""B"":456}"
     End With
 
+    With Specs.It("AddBodyParameter should override cached Body")
+        Set Request = New WebRequest
+        
+        Request.AddBodyParameter "A", 123
+        
+        .Expect(Request.Body).ToEqual "{""A"":123}"
+        
+        Request.AddBodyParameter "B", 456
+        
+        .Expect(Request.Body).ToEqual "{""A"":123,""B"":456}"
+    End With
+    
     ' AddCookie
     ' --------------------------------------------- '
     With Specs.It("should AddCookie")

src/WebRequest.cls

@@ -695,6 +695,9 @@ Public Sub AddBodyParameter(Key As Variant, Value As Variant)
     Else
         web_pBody(Key) = Value
     End If
+
+    ' Clear cached converted body
+    web_pConvertedBody = ""
 End Sub
 
 ''