fix build

Author: dsyme

tests/service/ExprTests.fs

@@ -448,8 +448,8 @@ let ``Test Declarations project1`` () =
            "let tyfuncEx1 = Operators.TypeOf<'T> () @ (26,20--26,26)";
            "let testILCall1 = new Object() @ (27,18--27,27)";
            "let testILCall2 = Console.WriteLine (\"176\") @ (28,18--28,49)";
-           "let recFuncIgnoresFirstArg(g) (v) = v @ (32,33--32,34)";
            "let recValNeverUsedAtRuntime = recValNeverUsedAtRuntime@31.Force<Microsoft.FSharp.Core.int>(()) @ (31,8--31,32)";
+           "let recFuncIgnoresFirstArg(g) (v) = v @ (32,33--32,34)";
            "let testFun4(unitVar0) = let rec ... in recValNeverUsedAtRuntime @ (36,4--39,28)";
            "type ClassWithImplicitConstructor";
            "member .ctor(compiledAsArg) = (Object..ctor (); (this.compiledAsArg <- compiledAsArg; (this.compiledAsField <- 1; let compiledAsLocal: Microsoft.FSharp.Core.int = 1 in let compiledAsLocal2: Microsoft.FSharp.Core.int = Operators.op_Addition<Microsoft.FSharp.Core.int,Microsoft.FSharp.Core.int,Microsoft.FSharp.Core.int> (compiledAsLocal,compiledAsLocal) in ()))) @ (41,5--41,33)";
@@ -520,7 +520,7 @@ let ``Test Declarations project1`` () =
            "let badLoop = badLoop@240.Force<Microsoft.FSharp.Core.int -> Microsoft.FSharp.Core.int>(()) @ (240,8--240,15)";
            "type LetLambda";
            "let f = ((); fun a -> fun b -> Operators.op_Addition<Microsoft.FSharp.Core.int,Microsoft.FSharp.Core.int,Microsoft.FSharp.Core.int> (a,b)) @ (246,8--247,24)";
-           "let letLambdaRes = Operators.op_PipeRight<(Microsoft.FSharp.Core.int * Microsoft.FSharp.Core.int) Microsoft.FSharp.Collections.list,Microsoft.FSharp.Core.int Microsoft.FSharp.Collections.list> (Cons((1,2),Empty()),let mapping: Microsoft.FSharp.Core.int * Microsoft.FSharp.Core.int -> Microsoft.FSharp.Core.int = fun tupledArg -> let a: Microsoft.FSharp.Core.int = tupledArg.Item0 in let b: Microsoft.FSharp.Core.int = tupledArg.Item1 in (LetLambda.f () a) b in fun list -> ListModule.Map<Microsoft.FSharp.Core.int * Microsoft.FSharp.Core.int,Microsoft.FSharp.Core.int> (mapping,list)) @ (249,19--249,71)"]
+           "let letLambdaRes = Operators.op_PipeRight<(Microsoft.FSharp.Core.int * Microsoft.FSharp.Core.int) Microsoft.FSharp.Collections.list,Microsoft.FSharp.Core.int Microsoft.FSharp.Collections.list> (Cons((1,2),Empty()),let mapping: Microsoft.FSharp.Core.int * Microsoft.FSharp.Core.int -> Microsoft.FSharp.Core.int = fun tupledArg -> let a: Microsoft.FSharp.Core.int = tupledArg.Item0 in let b: Microsoft.FSharp.Core.int = tupledArg.Item1 in (LetLambda.f () a) b in fun list -> ListModule.Map<Microsoft.FSharp.Core.int * Microsoft.FSharp.Core.int,Microsoft.FSharp.Core.int> (mapping,list)) @ (249,19--249,71)"] 
     ()
 
 //---------------------------------------------------------------------------------------------------------

tests/service/FileSystemTests.fs

@@ -91,10 +91,8 @@ let ``FileSystem compilation test``() =
                yield "--fullpaths"; 
                yield "--flaterrors"; 
                yield "--target:library"; 
-               for r in [ @"C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0\mscorlib.dll"; 
-                          @"C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0\System.dll"; 
-                          @"C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0\System.Core.dll"] do 
-                     yield "-r:" + r |]
+               for r in [ sysLib "mscorlib"; sysLib "System"; sysLib "System.Core"; fsCoreDefaultReference() ] do 
+                   yield "-r:" + r |]
 
         { ProjectFileName = @"c:\mycode\compilation.fsproj" // Make a name that is unique in this directory.
           ProjectFileNames = [| fileName1; fileName2 |]

tests/service/FsiTests.fs

@@ -151,7 +151,7 @@ let ``EvalExpression parse failure nothrow``() =
     |> shouldEqual 
           ["exception Operation could not be completed due to earlier error";
            "error 1,5 - 1,8; Unexpected keyword 'let' or 'use' in binding";
-           "error 1,1 - 1,4; Block following this 'let' is unfinished. Expect an expression."]
+           "error 1,1 - 1,4; The block following this 'let' is unfinished. Expect an expression."]
 
 [<Test>]
 let ``EvalInteraction typecheck failure``() =