|
1 | 1 |
|
2 | 2 | #if INTERACTIVE |
3 | 3 | #r "../../bin/v4.5/FSharp.Compiler.Service.dll" |
4 | | -#r "../../packages/NUnit.2.6.3/lib/nunit.framework.dll" |
| 4 | +#r "../../packages/NUnit/lib/nunit.framework.dll" |
5 | 5 | #load "FsUnit.fs" |
6 | 6 | #load "Common.fs" |
7 | 7 | #else |
8 | | -module FSharp.Compiler.Service.Tests.ExpeTests |
| 8 | +module FSharp.Compiler.Service.Tests.ExprTests |
9 | 9 | #endif |
10 | 10 |
|
11 | 11 |
|
@@ -169,12 +169,12 @@ let testILCall2 = System.Console.WriteLine(176) |
169 | 169 |
|
170 | 170 | // Test recursive values in a module |
171 | 171 | let rec recValNeverUsedAtRuntime = recFuncIgnoresFirstArg (fun _ -> recValNeverUsedAtRuntime) 1 |
172 | | -and recFuncIgnoresFirstArg g v = v |
| 172 | +and recFuncIgnoresFirstArg (g:int->int) v = v |
173 | 173 |
|
174 | 174 | let testFun4() = |
175 | 175 | // Test recursive values in expression position |
176 | 176 | let rec recValNeverUsedAtRuntime = recFuncIgnoresFirstArg (fun _ -> recValNeverUsedAtRuntime) 1 |
177 | | - and recFuncIgnoresFirstArg g v = v |
| 177 | + and recFuncIgnoresFirstArg (g:int->int) v = v |
178 | 178 |
|
179 | 179 | recValNeverUsedAtRuntime |
180 | 180 |
|
@@ -392,7 +392,7 @@ let ``Test Declarations project1`` () = |
392 | 392 | "let tyfuncEx1 = Operators.TypeOf<'T> () @ (26,20--26,26)"; |
393 | 393 | "let testILCall1 = new Object() @ (27,18--27,27)"; |
394 | 394 | "let testILCall2 = Console.WriteLine (176) @ (28,18--28,47)"; |
395 | | - "let recFuncIgnoresFirstArg(g) (v) = v @ (32,33--32,34)"; |
| 395 | + "let recFuncIgnoresFirstArg(g) (v) = v @ (32,44--32,45)"; |
396 | 396 | "let recValNeverUsedAtRuntime = recValNeverUsedAtRuntime@31.Force<Microsoft.FSharp.Core.int>(()) @ (31,8--31,32)"; |
397 | 397 | "let testFun4(unitVar0) = let rec ... in recValNeverUsedAtRuntime @ (36,4--39,28)"; |
398 | 398 | "type ClassWithImplicitConstructor"; |
|
0 commit comments