patrick/WoofWare.PawPrint
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.PawPrint synced 2025-10-07 23:18:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

WIP

Browse Source
This commit is contained in:
Smaug123
2025-06-27 12:09:15 +01:00
parent c049313dd9
commit 277f303431
4 changed files with 47 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
WoofWare.PawPrint.Test/TestPureCases.fs
View File

@@ -70,7 +70,7 @@ module TestPureCases =
}
{
FileName = "CastClassSimpleInheritance.cs"
ExpectedReturnCode = 1
ExpectedReturnCode = 5
NativeImpls = MockEnv.make ()
LocalVariablesOfMain = None
}
@@ -82,7 +82,7 @@ module TestPureCases =
}
{
FileName = "CastClassNull.cs"
ExpectedReturnCode = 1
ExpectedReturnCode = 42
NativeImpls = MockEnv.make ()
LocalVariablesOfMain = None
}
@@ -106,7 +106,7 @@ module TestPureCases =
}
{
FileName = "CastClassMultipleInterfaces.cs"
ExpectedReturnCode = 1
ExpectedReturnCode = 42
NativeImpls = MockEnv.make ()
LocalVariablesOfMain = None
}
@@ -160,7 +160,7 @@ module TestPureCases =
}
{
FileName = "IsinstNull.cs"
ExpectedReturnCode = 1
ExpectedReturnCode = 42
NativeImpls = MockEnv.make ()
LocalVariablesOfMain = None
}
@@ -176,6 +176,12 @@ module TestPureCases =
NativeImpls = MockEnv.make ()
LocalVariablesOfMain = None
}
{
FileName = "IsinstFailedInterface.cs"
ExpectedReturnCode = 1
NativeImpls = MockEnv.make ()
LocalVariablesOfMain = None
}
{
FileName = "CastClassInterface.cs"
ExpectedReturnCode = 1
@@ -184,7 +190,7 @@ module TestPureCases =
}
{
FileName = "IsinstInterface.cs"
ExpectedReturnCode = 1
ExpectedReturnCode = 42
NativeImpls = MockEnv.make ()
LocalVariablesOfMain = None
}

1
WoofWare.PawPrint.Test/WoofWare.PawPrint.Test.fsproj
View File

@@ -47,6 +47,7 @@
<EmbeddedResource Include="sourcesPure\IsinstNull.cs" />
<EmbeddedResource Include="sourcesPure\CastClassInvalid.cs" />
<EmbeddedResource Include="sourcesPure\IsinstFailed.cs" />
<EmbeddedResource Include="sourcesPure\IsinstFailedInterface.cs" />
<EmbeddedResource Include="sourcesPure\CastClassInterface.cs" />
<EmbeddedResource Include="sourcesPure\IsinstInterface.cs" />
<EmbeddedResource Include="sourcesPure\CustomDelegate.cs" />

7
WoofWare.PawPrint.Test/sourcesPure/IsinstFailed.cs
View File

@@ -14,8 +14,11 @@ public class Program
{
Bird sparrow = new Bird { CanFly = true };
// This should fail and return null (not throw)
Fish fish = sparrow as Fish;
// Cast to object first to bypass compile-time checking
object obj = sparrow;
// This should fail at runtime and return null (not throw)
Fish fish = obj as Fish;
return fish == null ? 42 : 0;
}

30
WoofWare.PawPrint.Test/sourcesPure/IsinstFailedInterface.cs Normal file
View File

@@ -0,0 +1,30 @@
public class Program
{
public interface IAnimal
{
string Name { get; set; }
}
public class Bird : IAnimal
{
public string Name { get; set; }
public bool CanFly { get; set; }
}
public class Fish : IAnimal
{
public string Name { get; set; }
public bool CanSwim { get; set; }
}
public static int Main(string[] args)
{
IAnimal animal = new Bird { Name = "Sparrow", CanFly = true };
// This should fail at runtime and return null (not throw)
// because the actual object is Bird, not Fish
Fish fish = animal as Fish;
return fish == null ? 42 : 0;
}
}