Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Delegate ABI Test
Detects issue #5275
  • Loading branch information
papaslavik committed Jun 7, 2016
1 parent 145c13f commit 1498631
Show file tree
Hide file tree
Showing 2 changed files with 117 additions and 0 deletions.
49 changes: 49 additions & 0 deletions tests/src/CoreMangLib/cti/system/delegate/DelegateABI.csproj
@@ -0,0 +1,49 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$([MSBuild]::GetDirectoryNameOfFileAbove($(MSBuildThisFileDirectory), dir.props))\dir.props" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{95DFC527-4DC1-495E-97D7-E94EE1F7140D}</ProjectGuid>
<OutputType>Exe</OutputType>
<AppDesignerFolder>Properties</AppDesignerFolder>
<FileAlignment>512</FileAlignment>
<ProjectTypeGuids>{786C830F-07A1-408B-BD7F-6EE04809D6DB};{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}</ProjectTypeGuids>
<ReferencePath>$(ProgramFiles)\Common Files\microsoft shared\VSTT\11.0\UITestExtensionPackages</ReferencePath>
<SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir>
<NuGetPackageImportStamp>7a9bfb7d</NuGetPackageImportStamp>
<AllowUnsafeBlocks>true</AllowUnsafeBlocks>
<ReferenceLocalMscorlib>false</ReferenceLocalMscorlib>
<CLRTestKind>BuildAndRun</CLRTestKind>
<CLRTestPriority>1</CLRTestPriority>
</PropertyGroup>
<!-- Default configurations to help VS understand the configurations -->
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
</PropertyGroup>
<ItemGroup>
<CodeAnalysisDependentAssemblyPaths Condition=" '$(VS100COMNTOOLS)' != '' " Include="$(VS100COMNTOOLS)..\IDE\PrivateAssemblies">
<Visible>False</Visible>
</CodeAnalysisDependentAssemblyPaths>
</ItemGroup>
<ItemGroup>
<!-- Add Compile Object Here -->
<Compile Include="delegateabi.cs" />
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="project.json" />
</ItemGroup>
<ItemGroup>
<Service Include="{82A7F48D-3B50-4B1E-B82E-3ADA8210C358}" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="../../../../Common/CoreCLRTestLibrary/CoreCLRTestLibrary.csproj" />
<ProjectReference Include="../../../../Common/CoreCLRTestLibrary/CoreCLRTestLibrary.csproj" />
</ItemGroup>
<Import Project="$([MSBuild]::GetDirectoryNameOfFileAbove($(MSBuildThisFileDirectory), dir.targets))\dir.targets" />
<PropertyGroup Condition=" '$(MsBuildProjectDirOverride)' != '' ">
</PropertyGroup>
</Project>
68 changes: 68 additions & 0 deletions tests/src/CoreMangLib/cti/system/delegate/delegateabi.cs
@@ -0,0 +1,68 @@
// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.

using System;

namespace ClassLibrary
{
public class test
{
public delegate float FloatTest(float a);

static float testfloat(float a)
{
if(a != -1.1f)
{
throw new Exception();
}
return -2.2f;
}

public delegate int IntTest(int a);

static int testint(int a)
{
if(a != -1)
{
throw new Exception();
}
return -2;
}

static int Main(string[] args)
{
try
{
IntTest inttest = testint;
int r = inttest(-1);
if (r != -2)
{
Console.WriteLine("FAIL - int return value mismatch");
return 101;
}
}
catch (Exception)
{
Console.WriteLine("FAIL - int argument value mismatch");
return 102;
}
try
{
FloatTest floattest = testfloat;
float r = floattest(-1.1f);
if (r != -2.2f)
{
Console.WriteLine("FAIL - float return value mismatch");
return 103;
}
}
catch (Exception)
{
Console.WriteLine("FAIL - float argument value mismatch");
return 104;
}
return 100;
}
}
}

0 comments on commit 1498631

Please sign in to comment.