Add Expecto Integration

SwensenSoftware · Dec 12, 2016 · 13c24f1 · 13c24f1
1 parent f8f8fbf
commit 13c24f1
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/Unquote/Assertions.fs b/Unquote/Assertions.fs
@@ -40,6 +40,7 @@ module Internal =
         | Xunit of Type
         | Nunit of Type
         | Fuchu of Type
+        | Expecto of Type
         | Fsi
         | Generic
 
@@ -82,13 +83,19 @@ module Internal =
                     //issue in vs 2010: http://stackoverflow.com/questions/2024036/strange-fsi-exe-behavior
                     if assemblies |> Seq.exists (fun a -> a.GetName().Name = "Fuchu") then
                         yield Fuchu (Type.GetType("Fuchu.AssertException, Fuchu"))
+                    elif assemblies |> Seq.exists (fun a -> a.GetName().Name = "Expecto") then
+                        yield Fuchu (Type.GetType("Expecto.AssertException, Expecto"))
                     else
                         yield Fsi
 
                 let ty = Type.GetType("Fuchu.AssertException, Fuchu")
                 if ty <> null then
                     yield Fuchu ty
 
+                let ty = Type.GetType("Expecto.AssertException, Expecto")
+                if ty <> null then
+                    yield Expecto ty
+
                 let ty = Type.GetType("Xunit.Assert, xunit") //xunit v1
                 if ty <> null then
                     yield Xunit ty
@@ -109,6 +116,8 @@ module Internal =
         match framework with
         | Fuchu ty -> 
             (fun (msg : string) -> raise (Activator.CreateInstance(ty, msg) :?> Exception)) |> outputReducedExprsMsg
+        | Expecto ty -> 
+            (fun (msg : string) -> raise (Activator.CreateInstance(ty, msg) :?> Exception)) |> outputReducedExprsMsg
         | Fsi ->
             fsiTestFailed
         | Xunit ty ->