Skip to content

Commit 71eb949

Browse files
committed
Remove some Client error tests
- Difficult to test on Mac
1 parent 752776b commit 71eb949

File tree

2 files changed

+0
-28
lines changed

2 files changed

+0
-28
lines changed

specs/Specs_WebClient.bas

-28
Original file line numberDiff line numberDiff line change
@@ -265,34 +265,6 @@ Public Function Specs() As SpecSuite
265265

266266
.Expect(Err.Number).ToEqual 11011 + vbObjectError
267267
Err.Clear
268-
269-
' Invalid URL
270-
Client.BaseUrl = "http:////////google.com///////////"
271-
Set Response = Client.Execute(Request)
272-
273-
.Expect(Err.Number).ToEqual 11011 + vbObjectError
274-
Err.Clear
275-
End With
276-
277-
With Specs.It("[Mac-only] should match common cURL errors to WinHttpRequest errors")
278-
#If Mac Then
279-
' Unsupported protocol
280-
Client.BaseUrl = "unknown://"
281-
Set Response = Client.Execute(Request)
282-
283-
.Expect(Err.Description).ToMatch "80072ee6"
284-
Err.Clear
285-
286-
' Invalid URL
287-
Client.BaseUrl = "http:////////google.com///////////"
288-
Set Response = Client.Execute(Request)
289-
290-
.Expect(Err.Description).ToMatch "80072ee5"
291-
Err.Clear
292-
#Else
293-
' (Mac-only)
294-
.Expect(True).ToEqual True
295-
#End If
296268
End With
297269

298270
Set Client = Nothing

specs/VBA-Web - Specs.xlsm

-636 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)