From c348da258f072bc88ea422cbc534c0831817b3c8 Mon Sep 17 00:00:00 2001
From: "Somhairle H. Marisol" <muqiu-han@outlook.com>
Date: Mon, 21 Sep 2026 19:30:33 +0800
Subject: feat(occupation): P12
 报价偏置纯函数——货郎买卖±3.00%/书生解读±1.00%，4位定点基点，默认无职业=旧行为（TDD
 6例）
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../LivingVillage.Kernel.Tests.fsproj              |  1 +
 src/LivingVillage.Kernel.Tests/TradeBiasTests.fs   | 71 ++++++++++++++++++++++
 2 files changed, 72 insertions(+)
 create mode 100644 src/LivingVillage.Kernel.Tests/TradeBiasTests.fs

(limited to 'src/LivingVillage.Kernel.Tests')

diff --git a/src/LivingVillage.Kernel.Tests/LivingVillage.Kernel.Tests.fsproj b/src/LivingVillage.Kernel.Tests/LivingVillage.Kernel.Tests.fsproj
index c11e064..dea8314 100644
--- a/src/LivingVillage.Kernel.Tests/LivingVillage.Kernel.Tests.fsproj
+++ b/src/LivingVillage.Kernel.Tests/LivingVillage.Kernel.Tests.fsproj
@@ -13,6 +13,7 @@
     <Compile Include="M5Tests.fs" />
     <Compile Include="M6aTests.fs" />
     <Compile Include="DailyTaskTests.fs" />
+    <Compile Include="TradeBiasTests.fs" />
     <Compile Include="PerformanceTests.fs" />
   </ItemGroup>
 
diff --git a/src/LivingVillage.Kernel.Tests/TradeBiasTests.fs b/src/LivingVillage.Kernel.Tests/TradeBiasTests.fs
new file mode 100644
index 0000000..96d3e2f
--- /dev/null
+++ b/src/LivingVillage.Kernel.Tests/TradeBiasTests.fs
@@ -0,0 +1,71 @@
+namespace LivingVillage.Kernel.Tests
+
+open Microsoft.VisualStudio.TestTools.UnitTesting
+open LivingVillage.Kernel
+open LivingVillage.Kernel.Sim
+
+module private TradeBiasHarness =
+
+    let quotedWorld () : World = Sim.initialWorldN 42UL 4
+
+    let quote (buyer: NpcId) (seller: NpcId) (item: ItemKind) (world: World) : float32 =
+        match Sim.quotePrice { Buyer = buyer; Seller = seller; Item = item; Quantity = 1 } world with
+        | Some price -> price
+        | None -> Assert.Fail("quote expected"); Unchecked.defaultof<float32>
+
+[<TestClass>]
+type TradeBiasTests () =
+
+    // ---- 默认（无职业）= 旧行为基准 ----
+
+    [<TestMethod>]
+    member _.NoOccupationKeepsTheHistoricQuoteUnchanged () =
+        Assert.AreEqual<float32>(1.0f, Occupation.quoteBiasOf None true)
+        Assert.AreEqual<float32>(1.0f, Occupation.quoteBiasOf None false)
+        Assert.AreEqual<float32 option>(Some 10.0f, Occupation.biasedQuote None true (Some 10.0f))
+        Assert.AreEqual<float32 option>(None, Occupation.biasedQuote None true None)
+
+    [<TestMethod>]
+    member _.FarmerAndFisherStayUnbiasedLikeTheDefaultPath () =
+        for kind in [ Occupation.Farmer; Occupation.Fisher ] do
+            Assert.AreEqual<float32>(1.0f, Occupation.quoteBiasOf (Some kind) true)
+            Assert.AreEqual<float32>(1.0f, Occupation.quoteBiasOf (Some kind) false)
+
+    // ---- 货郎：买卖双向有利偏移（±3.00%，4 位定点基点）----
+
+    [<TestMethod>]
+    member _.PeddlerBuysCheaperAndSellsDearer () =
+        Assert.AreEqual<float32>(0.97f, Occupation.quoteBiasOf (Some Occupation.Peddler) true)
+        Assert.AreEqual<float32>(1.03f, Occupation.quoteBiasOf (Some Occupation.Peddler) false)
+
+    // ---- 书生：解读行情的小幅加成（±1.00%）----
+
+    [<TestMethod>]
+    member _.ScholarGetsASmallerFavorableEdgeThanPeddler () =
+        let scholarBuy = Occupation.quoteBiasOf (Some Occupation.Scholar) true
+        let peddlerBuy = Occupation.quoteBiasOf (Some Occupation.Peddler) true
+        Assert.AreEqual<float32>(0.99f, scholarBuy)
+        Assert.AreEqual<float32>(1.01f, Occupation.quoteBiasOf (Some Occupation.Scholar) false)
+        Assert.IsTrue(scholarBuy > peddlerBuy, "scholar edge must stay inside the peddler edge")
+
+    // ---- 确定性与设计区间 [0.95, 1.05] ----
+
+    [<TestMethod>]
+    member _.BiasIsDeterministicAndInsideTheDesignBand () =
+        for kind in Occupation.all do
+            for playerIsBuyer in [ true; false ] do
+                let first = Occupation.quoteBiasOf (Some kind) playerIsBuyer
+                let second = Occupation.quoteBiasOf (Some kind) playerIsBuyer
+                Assert.AreEqual<float32>(first, second)
+                Assert.IsTrue(0.95f <= first && first <= 1.05f, $"{kind} bias {first} escaped the band")
+
+    // ---- 与既有 Sim.quotePrice（Food 10.0f 路径）复合 ----
+
+    [<TestMethod>]
+    member _.BiasComposesWithTheExistingQuotePath () =
+        let world = TradeBiasHarness.quotedWorld ()
+        let baseBuy = TradeBiasHarness.quote (NpcId 0) (NpcId 1) Food world
+        let baseSell = TradeBiasHarness.quote (NpcId 1) (NpcId 0) Food world
+        Assert.AreEqual<float32>(baseBuy * 0.97f, (Occupation.biasedQuote (Some Occupation.Peddler) true (Some baseBuy)).Value)
+        Assert.AreEqual<float32>(baseSell * 1.03f, (Occupation.biasedQuote (Some Occupation.Peddler) false (Some baseSell)).Value)
+        Assert.AreEqual<float32>(baseBuy, (Occupation.biasedQuote None true (Some baseBuy)).Value)
-- 
cgit v1.2.3