From 9cf81de567c9dc92f8321b66dca2924b3a8421a3 Mon Sep 17 00:00:00 2001 From: latkin Date: Thu, 11 Jun 2015 11:52:11 -0700 Subject: [PATCH] Add extra test case for fixed non-inline APIs --- .../Source/MultiTargeting/InlineCoreResource_author.fs | 5 ++++- .../Source/MultiTargeting/InlineCoreResource_consumer.fsx | 3 +++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/tests/fsharpqa/Source/MultiTargeting/InlineCoreResource_author.fs b/tests/fsharpqa/Source/MultiTargeting/InlineCoreResource_author.fs index a729632e982..bfc62f97fc2 100644 --- a/tests/fsharpqa/Source/MultiTargeting/InlineCoreResource_author.fs +++ b/tests/fsharpqa/Source/MultiTargeting/InlineCoreResource_author.fs @@ -1,4 +1,7 @@ module Test let inline init1 n f = Array.init n f -let init2 n f = Array.init n f \ No newline at end of file +let init2 n f = Array.init n f + +let inline reduce1 f = Array.reduce f +let reduce2 f = Array.reduce f \ No newline at end of file diff --git a/tests/fsharpqa/Source/MultiTargeting/InlineCoreResource_consumer.fsx b/tests/fsharpqa/Source/MultiTargeting/InlineCoreResource_consumer.fsx index 0f9b072ae21..bc1a98e5904 100644 --- a/tests/fsharpqa/Source/MultiTargeting/InlineCoreResource_consumer.fsx +++ b/tests/fsharpqa/Source/MultiTargeting/InlineCoreResource_consumer.fsx @@ -7,6 +7,9 @@ module Foo Test.init1 4 (fun _ -> 4.) |> printfn "%A" Test.init2 4 (fun _ -> 4.) |> printfn "%A" +Test.reduce1 (fun acc n -> acc + n) [| 1 .. 10 |] |> printfn "%A" +Test.reduce2 (fun acc n -> acc + n) [| 1 .. 10 |] |> printfn "%A" + #if INTERACTIVE #q ;; #endif \ No newline at end of file