5dplomacy/MultiversalDiplomacyTests/TestCaseBuilderTest.cs

214 lines
8.7 KiB
C#

using MultiversalDiplomacy.Adjudicate;
using MultiversalDiplomacy.Adjudicate.Decision;
using MultiversalDiplomacy.Model;
using MultiversalDiplomacy.Orders;
using NUnit.Framework;
namespace MultiversalDiplomacyTests;
class TestCaseBuilderTest
{
[Test]
public void BuilderCreatesUnits()
{
TestCaseBuilder setup = new(World.WithStandardMap());
Assert.That(setup.World.Powers.Count, Is.EqualTo(7), "Unexpected power count");
Assert.That(setup.World.Units, Is.Empty, "Expected no units to be created yet");
setup
["England"]
.Army("London").Exists()
.Fleet("Irish Sea").Exists()
["Russia"]
.Fleet("Saint Petersburg", "west coast").Exists();
Assert.That(setup.Orders, Is.Empty, "Expected no orders to be created yet");
Assert.That(setup.World.Units, Is.Not.Empty, "Expected units to be created");
Unit armyLON = setup.World.GetUnitAt("London");
Assert.That(armyLON.Power.Name, Is.EqualTo("England"), "Unit created with wrong power");
Assert.That(armyLON.Type, Is.EqualTo(UnitType.Army), "Unit created with wrong type");
Unit fleetIRI = setup.World.GetUnitAt("Irish Sea");
Assert.That(fleetIRI.Power.Name, Is.EqualTo("England"), "Unit created with wrong power");
Assert.That(fleetIRI.Type, Is.EqualTo(UnitType.Fleet), "Unit created with wrong type");
Unit fleetSTP = setup.World.GetUnitAt("Saint Petersburg");
Assert.That(fleetSTP.Power.Name, Is.EqualTo("Russia"), "Unit created with wrong power");
Assert.That(fleetSTP.Type, Is.EqualTo(UnitType.Fleet), "Unit created with wrong type");
Assert.That(
fleetSTP.LocationId,
Is.EqualTo(setup.World.Map.GetWater("STP", "wc").Designation),
"Unit created on wrong coast");
}
[Test]
public void BuilderCreatesOrders()
{
TestCaseBuilder setup = new(World.WithStandardMap());
Assert.That(setup.World.Powers.Count, Is.EqualTo(7), "Unexpected power count");
Assert.That(setup.World.Units, Is.Empty, "Expected no units to be created yet");
Assert.That(setup.Orders, Is.Empty, "Expected no orders to be created yet");
setup
["Germany"]
.Army("Berlin").MovesTo("Kiel")
.Army("Prussia").Holds()
["England"]
.Fleet("North Sea").Convoys.Army("London").To("Holland")
["France"]
.Army("Kiel").Supports.Army("London", powerName: "England").MoveTo("Holland")
.Army("Munich").Supports.Army("Kiel").Hold();
Assert.That(setup.Orders, Is.Not.Empty, "Expected orders to be created");
Assert.That(setup.World.Units, Is.Not.Empty, "Expected units to be created");
List<UnitOrder> orders = setup.Orders.OfType<UnitOrder>().ToList();
Func<UnitOrder, bool> OrderForProvince(string name)
=> order => setup.World.Map.GetLocation(order.Unit).Province.Name == name;
UnitOrder orderBer = orders.Single(OrderForProvince("Berlin"));
Assert.That(orderBer, Is.InstanceOf<MoveOrder>(), "Unexpected order type");
Assert.That(
(orderBer as MoveOrder)?.Location,
Is.EqualTo(setup.World.Map.GetLand("Kiel")),
"Unexpected move order destination");
UnitOrder orderPru = orders.Single(OrderForProvince("Prussia"));
Assert.That(orderPru, Is.InstanceOf<HoldOrder>(), "Unexpected order type");
UnitOrder orderNth = orders.Single(OrderForProvince("North Sea"));
Assert.That(orderNth, Is.InstanceOf<ConvoyOrder>(), "Unexpected order type");
Assert.That(
(orderNth as ConvoyOrder)?.Target,
Is.EqualTo(setup.World.GetUnitAt("London")),
"Unexpected convoy order target");
Assert.That(
(orderNth as ConvoyOrder)?.Location,
Is.EqualTo(setup.World.Map.GetLand("Holland")),
"Unexpected convoy order destination");
UnitOrder orderKie = orders.Single(OrderForProvince("Kiel"));
Assert.That(orderKie, Is.InstanceOf<SupportMoveOrder>(), "Unexpected order type");
Assert.That(
(orderKie as SupportMoveOrder)?.Target,
Is.EqualTo(setup.World.GetUnitAt("London")),
"Unexpected convoy order target");
Assert.That(
(orderKie as SupportMoveOrder)?.Location,
Is.EqualTo(setup.World.Map.GetLand("Holland")),
"Unexpected convoy order destination");
UnitOrder orderMun = orders.Single(OrderForProvince("Munich"));
Assert.That(orderMun, Is.InstanceOf<SupportHoldOrder>(), "Unexpected order type");
Assert.That(
(orderMun as SupportHoldOrder)?.Target,
Is.EqualTo(setup.World.GetUnitAt("Kiel")),
"Unexpected convoy order target");
Assert.That(orders.Where(OrderForProvince("London")), Is.Empty, "Unexpected order");
}
[Test]
public void BuilderProvidesReferencesForValidation()
{
IPhaseAdjudicator rubberStamp = new TestAdjudicator(validate: TestAdjudicator.RubberStamp);
TestCaseBuilder setup = new TestCaseBuilder(World.WithStandardMap());
setup["Germany"]
.Army("Mun").Holds().GetReference(out var orderMun);
Assert.That(orderMun, Is.Not.Null, "Expected order reference");
Assert.That(
orderMun.Order.Power,
Is.EqualTo(setup.World.Map.GetPower("Germany")),
"Wrong power");
Assert.That(
orderMun.Order.Unit.LocationId,
Is.EqualTo(setup.World.Map.GetLand("Mun").Designation),
"Wrong unit");
Assert.That(
code: () => _ = orderMun.Validation,
Throws.Exception,
"Validation property should be inaccessible before validation actually happens");
setup.ValidateOrders(rubberStamp);
Assert.That(
code: () => _ = orderMun.Validation,
Throws.Nothing,
"Validation property should be accessible after validation");
Assert.That(
orderMun.Validation.Order,
Is.EqualTo(orderMun.Order),
"Validation for wrong order");
Assert.That(
orderMun.Validation.Valid,
Is.True,
"Unexpected validation result");
Assert.That(
orderMun.Validation.Reason,
Is.EqualTo(ValidationReason.Valid),
"Unexpected validation reason");
}
public void BuilderProvidesReferencesForAdjudication()
{
IPhaseAdjudicator rubberStamp = new TestAdjudicator(
validate: TestAdjudicator.RubberStamp,
adjudicate: TestAdjudicator.NoMoves);
TestCaseBuilder setup = new TestCaseBuilder(World.WithStandardMap());
setup["Germany"]
.Army("Mun").Holds().GetReference(out var orderMun);
Assert.That(
code: () => _ = orderMun.Adjudications,
Throws.Exception,
"Adjudication property should be inaccessible before validation");
Assert.That(
code: () => _ = orderMun.Retreat,
Throws.Exception,
"Retreat property should be inaccessible before validation");
setup.ValidateOrders(rubberStamp);
Assert.That(
code: () => _ = orderMun.Adjudications,
Throws.Exception,
"Adjudication property should be inaccessible before adjudication");
Assert.That(
code: () => _ = orderMun.Retreat,
Throws.Exception,
"Retreat property should be inaccessible before adjudication");
var decisions = setup.AdjudicateOrders(rubberStamp);
Assert.That(
code: () => _ = orderMun.Adjudications,
Throws.Nothing,
"Adjudication property should be accessible after adjudication");
Assert.That(
code: () => _ = orderMun.Retreat,
Throws.Nothing,
"Retreat property should be accessible after validation");
Assert.That(orderMun.Retreat, Is.Null, "Noop adjudicator shouldn't cause retreats");
Assert.That(
orderMun.Adjudications.Count,
Is.EqualTo(1),
"Unexpected number of adjudications");
AdjudicationDecision decision = orderMun.Adjudications.First();
Assert.That(decision.Resolved, Is.True, "Unexpected unresolved decision");
Assert.That(
decision,
Is.AssignableTo<IsDislodged>(),
"Noop adjudicator should provide a dislodge decision for a hold");
CollectionAssert.Contains(
decisions,
decision,
"Expected the adjudicated decision to be provided by the order reference");
}
}