Skip to content
This repository has been archived by the owner on Jan 3, 2023. It is now read-only.

Commit

Permalink
fix integration
Browse files Browse the repository at this point in the history
  • Loading branch information
fsgit committed Jul 17, 2014
1 parent c07a33c commit 738eeb4
Show file tree
Hide file tree
Showing 7 changed files with 7 additions and 10 deletions.
3 changes: 3 additions & 0 deletions src/FSharpSource.targets
Expand Up @@ -98,6 +98,9 @@ Some other NuGET monikers to support in the future, see http://docs.nuget.org/do

<!-- v2.0-specific flags -->
<PropertyGroup Condition="'$(TargetFramework)'=='net20'">
<!-- If 3.5 is not configured explicitly, use 2.0 -->
<TargetFrameworkVersion Condition="'$(TargetFrameworkVersion)'==''">v2.0</TargetFrameworkVersion>
<TargetFrameworkOutputDirectory>net20</TargetFrameworkOutputDirectory>
<DefineConstants>$(DefineConstants);FSHARP_CORE_2_0</DefineConstants>
<DefineConstants>$(DefineConstants);RUNTIME</DefineConstants>
<DefineConstants>$(DefineConstants);FX_ATLEAST_35</DefineConstants>
Expand Down
3 changes: 0 additions & 3 deletions src/fsharp/FSharp.Build/FSharp.Build.fsproj
Expand Up @@ -20,9 +20,6 @@
<FsSrGen Include="FSBuild.txt">
<Link>FSBuild.txt</Link>
</FsSrGen>
<FsSrGen Include="FSBuild.txt">
<Link>FSBuild.txt</Link>
</FsSrGen>
<Compile Include="InternalsVisibleTo.fs" />
<Compile Include="..\..\assemblyinfo\assemblyinfo.FSharp.Build.dll.fs">
<Link>Utilities/assemblyinfo.FSharp.Build.dll.fs</Link>
Expand Down
Expand Up @@ -19,9 +19,6 @@
<FsSrGen Include="..\fsiserver\FSServerShared.txt">
<Link>FSServerShared.txt</Link>
</FsSrGen>
<FsSrGen Include="..\fsiserver\FSServerShared.txt">
<Link>FSServerShared.txt</Link>
</FsSrGen>
<Compile Include="InternalsVisibleTo.fs" />
<Compile Include="..\..\assemblyinfo\assemblyinfo.FSharp.Compiler.Server.Shared.dll.fs">
<Link>assemblyinfo.FSharp.Compiler.Server.Shared.dll.fs</Link>
Expand Down
2 changes: 1 addition & 1 deletion src/fsharp/FSharp.Core.Unittests/SurfaceArea.2.0.fs
Expand Up @@ -3120,6 +3120,6 @@ System.Tuple`8[T1,T2,T3,T4,T5,T6,T7,TRest]: Void .ctor(T1, T2, T3, T4, T5, T6, T
"

let act = actual.ToString()
if expected <> act then
if expected.Replace("\r\n","\n") <> act.Replace("\r\n","\n") then
printf "%s" act
Assert.AreEqual(expected, act)
2 changes: 1 addition & 1 deletion src/fsharp/FSharp.Core.Unittests/SurfaceArea.4.0.fs
Expand Up @@ -3322,7 +3322,7 @@ Microsoft.FSharp.Reflection.UnionCaseInfo: System.Type get_DeclaringType()
expectedSurfaceArea |> normalize

let act = actual.ToString() |> normalize
if expected <> act then
if expected.Replace("\r\n","\n") <> act.Replace("\r\n","\n") then
let mutable indexFirstDiff = 0
while indexFirstDiff < expected.Length && expected.[indexFirstDiff] = act.[indexFirstDiff] do
indexFirstDiff <- indexFirstDiff + 1
Expand Down
2 changes: 1 addition & 1 deletion src/fsharp/FSharp.Core.Unittests/SurfaceArea.Portable.fs
Expand Up @@ -3306,7 +3306,7 @@ System.IObserver`1[T]: Void OnNext(T)"
// add padding to ensure diagnostics below don't get IndexOutOfRange
let expected = expected + String.replicate 400 " "
let act = act + String.replicate 400 " "
if expected <> act then
if expected.Replace("\r\n","\n") <> act.Replace("\r\n","\n") then
let mutable indexFirstDiff = 0
while indexFirstDiff < expected.Length && expected.[indexFirstDiff] = act.[indexFirstDiff] do
indexFirstDiff <- indexFirstDiff + 1
Expand Down
Expand Up @@ -2908,6 +2908,6 @@ System.Tuple`8[T1,T2,T3,T4,T5,T6,T7,TRest]: Void .ctor(T1, T2, T3, T4, T5, T6, T
"

let act = actual.ToString()
if expected <> act then
if expected.Replace("\r\n","\n") <> act.Replace("\r\n","\n") then
printf "%s" act
Assert.AreEqual(expected, act)

0 comments on commit 738eeb4

Please sign in to comment.