Skip to content

Commit

Permalink
Add extra test case for fixed non-inline APIs
Browse files Browse the repository at this point in the history
  • Loading branch information
latkin committed Jun 11, 2015
1 parent f552478 commit 9cf81de
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 1 deletion.
Original file line number Diff line number Diff line change
@@ -1,4 +1,7 @@
module Test

let inline init1 n f = Array.init n f
let init2 n f = Array.init n f
let init2 n f = Array.init n f

let inline reduce1 f = Array.reduce f
let reduce2 f = Array.reduce f
Original file line number Diff line number Diff line change
Expand Up @@ -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

0 comments on commit 9cf81de

Please sign in to comment.