patrick/WoofWare.Myriad
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.Myriad synced 2025-10-25 05:48:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Extend

Browse Source
This commit is contained in:
Smaug123
2023-12-29 23:16:42 +00:00
parent 9472d9d06b
commit a9024584a5
2 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
MyriadPlugin.Test/TestReturnTypes.fs
View File

@@ -87,8 +87,10 @@ module TestReturnTypes =
Object.ReferenceEquals (message, Option.get responseMessage) |> shouldEqual true
[<TestCase "Response">]
[<TestCase "RestEase.Response">]
[<TestCase "Task<Response>">]
[<TestCase "Task<RestEase.Response>">]
[<TestCase "RestEase.Response Task">]
[<TestCase "RestEase.Response Task">]
let ``Response return`` (case : string) =
for json, memberDto in PureGymDtos.memberActivityDtoCases do
let mutable responseMessage = None
@@ -108,8 +110,10 @@ module TestReturnTypes =
let response =
match case with
| "Response" -> api.GetResponse().Result
| "RestEase.Response'" -> api.GetResponse'().Result
| "Task<Response>" -> api.GetResponse().Result
| "Task<RestEase.Response>" -> api.GetResponse'().Result
| "Response Task" -> api.GetResponse''().Result
| "RestEase.Response Task" -> api.GetResponse'''().Result
| _ -> failwith $"unrecognised case: %s{case}"
response.ResponseMessage |> shouldEqual (Option.get responseMessage)