module Accumulate
let rec accumulate (func: 'a -> 'b) (input: 'a list): 'b list =
match input with
| [] -> []
| h :: t -> (func h) :: (accumulate func t)
Good point, it was a few days back, but I don’t think so.
What I did is copy the code, and copied the test, and instead of run the unit test framework, I just modified the test code so that it just output the result, not via test framework.
[<Fact>]
let ``Accumulate large data set without stack overflow`` () =
accumulate id [1..100000]
|> should equal [1..100000]
The top of the error message from local test result:
The active test run was aborted. Reason: Test host process crashed : Stack overflow.
Repeat 74735 times:
--------------------------
I mean, it would be nice to have feedback about the error was the last test, and all the tests before were all passed, but it’s not really an online test runner issue if the local test did the same thing: basically stopped without give feedback for for which test passed and whic failed.