mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-05 20:18:43 +00:00
75 lines
1.9 KiB
Forth
75 lines
1.9 KiB
Forth
namespace WoofWare.Myriad.Plugins.Test
|
|
|
|
open System
|
|
open System.Numerics
|
|
open System.Text.Json.Nodes
|
|
open ConsumePlugin
|
|
open NUnit.Framework
|
|
open FsUnitTyped
|
|
|
|
[<TestFixture>]
|
|
module TestExtensionMethod =
|
|
|
|
[<Test>]
|
|
let ``Parse via extension method`` () =
|
|
let json =
|
|
"""{
|
|
"alpha": "hello!",
|
|
"bravo": "https://example.com",
|
|
"charlie": 0.3341,
|
|
"delta": 110033.4,
|
|
"echo": -0.000993,
|
|
"foxtrot": -999999999999,
|
|
"golf": -123456789101112,
|
|
"hotel": 18446744073709551615,
|
|
"india": 99884,
|
|
"juliette": 12223334,
|
|
"kilo": -2147483642,
|
|
"lima": 4294967293,
|
|
"mike": -32767,
|
|
"november": 65533,
|
|
"oscar": -125,
|
|
"papa": 253,
|
|
"quebec": 254,
|
|
"tango": -3,
|
|
"uniform": 1004443.300988393349583009,
|
|
"victor": "x",
|
|
"whiskey": 123456123456123456123456123456123456123456
|
|
}"""
|
|
|> JsonNode.Parse
|
|
|
|
let expected =
|
|
{
|
|
Alpha = "hello!"
|
|
Bravo = Uri "https://example.com"
|
|
Charlie = 0.3341
|
|
Delta = 110033.4f
|
|
Echo = -0.000993f
|
|
Foxtrot = -999999999999.0
|
|
Golf = -123456789101112L
|
|
Hotel = 18446744073709551615UL
|
|
India = 99884
|
|
Juliette = 12223334u
|
|
Kilo = -2147483642
|
|
Lima = 4294967293u
|
|
Mike = -32767s
|
|
November = 65533us
|
|
Oscar = -125y
|
|
Papa = 253uy
|
|
Quebec = 254uy
|
|
Tango = -3y
|
|
Uniform = 1004443.300988393349583009m
|
|
Victor = 'x'
|
|
Whiskey =
|
|
let mutable i = BigInteger 0
|
|
|
|
for _ = 0 to 6 do
|
|
i <- i * BigInteger 1000000 + BigInteger 123456
|
|
|
|
i
|
|
}
|
|
|
|
let actual = ToGetExtensionMethod.jsonParse json
|
|
|
|
actual |> shouldEqual expected
|