work around F# bug constructing System.Exception() inside quotation i…

…n profile 259: dotnet/fsharp#68
google-code-export · Mar 8, 2015 · 324ac24 · 324ac24
1 parent 184e1e0
commit 324ac24
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/UnquoteTests/EvaluationTests.fs b/UnquoteTests/EvaluationTests.fs
@@ -362,7 +362,7 @@ let ``TryFinally no exception try body returned and finally is called`` () =
 let ``TryFinally exception is thrown and finally is called`` () =
     let finallyCalled = ref false
     raises<exn> <@ try
-                       raise (System.Exception())
+                       raise (new System.ArgumentException())
                    finally
                        finallyCalled := true @>
     test <@ !finallyCalled @>
@@ -378,7 +378,7 @@ let ``TryWith no exception thrown`` () =
 [<Fact>]
 let ``TryWith exception thrown no binding or filtering`` () =
     testEval <@ try
-                    raise (exn())
+                    raise (new System.ArgumentException())
                     false
                 with _ ->
                     true @>

diff --git a/UnquoteTests/ReductionTests.fs b/UnquoteTests/ReductionTests.fs
@@ -694,7 +694,7 @@ let ``ForIntegerRangeLoop reduces range start and end but not body``() =
 let ``Issue 62: TryWith with block is followed when exception in body`` () =
     let called = ref false
     reduceFully <@ try
-                       raise (exn())
+                       raise (new System.ArgumentException())
                    with e ->
                        called := true @>
     test <@ !called @>