Set AppDomain (#15)

Consumer/Consumer.fsproj

@@ -10,6 +10,10 @@
     <ItemGroup>
         <Compile Include="TestSetUp.fs" />
         <Compile Include="TestValues.fs" />
+        <None Include="some-config.json">
+          <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+        </None>
+        <Compile Include="TestAppDomain.fs" />
     </ItemGroup>
 
     <ItemGroup>

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"}"""

Consumer/some-config.json

@@ -0,0 +1 @@
+{"hi":"bye"}