diff --git a/tests/service/ExprTests.fs b/tests/service/ExprTests.fs index 02a62ba5b99..6363622eb11 100644 --- a/tests/service/ExprTests.fs +++ b/tests/service/ExprTests.fs @@ -722,6 +722,13 @@ let test{0}ToStringOperator (e1:{1}) = string e1 """ +let ignoreTestIfStackOverflowExpected () = +#if !NETFRAMEWORK && DEBUG + Assert.Ignore("Test is known to fail in DEBUG when not using NetFramework. Use RELEASE configuration or NetFramework to run it.") +#else + () +#endif + /// This test is run in unison with its optimized counterpart below [] let ``Test Unoptimized Declarations Project1`` () = @@ -3191,6 +3198,7 @@ let BigSequenceExpression(outFileOpt,docFileOpt,baseAddressOpt) = [] let ``Test expressions of declarations stress big expressions`` () = + ignoreTestIfStackOverflowExpected () let cleanup, options = ProjectStressBigExpressions.createOptions() use _holder = cleanup let exprChecker = FSharpChecker.Create(keepAssemblyContents=true) @@ -3207,6 +3215,7 @@ let ``Test expressions of declarations stress big expressions`` () = [] let ``Test expressions of optimized declarations stress big expressions`` () = + ignoreTestIfStackOverflowExpected () let cleanup, options = ProjectStressBigExpressions.createOptions() use _holder = cleanup let exprChecker = FSharpChecker.Create(keepAssemblyContents=true)