Set AppDomain (#15)

2025-10-13 04:28:41 +00:00 · 2024-06-05 00:09:40 +01:00
parent 31b76f2f97
commit 247cc9fa0d
4 changed files with 57 additions and 15 deletions
--- a/Consumer/TestAppDomain.fs
+++ b/Consumer/TestAppDomain.fs
@@ -0,0 +1,16 @@
+namespace Consumer
+
+open System
+open FsUnitTyped
+open System.IO
+open NUnit.Framework
+
+[<TestFixture>]
+module TestAppDomain =
+
+    [<Test>]
+    let ``Can load config`` () =
+        Path.Combine (AppDomain.CurrentDomain.BaseDirectory, "some-config.json")
+        |> File.ReadAllText
+        |> fun s -> s.Trim ()
+        |> shouldEqual """{"hi":"bye"}"""