Stage 4: Web3 black market spot counter and Ponero desk

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

tests/Decentralized.Domain.Tests/Program.cs

@@ -560,6 +560,29 @@ internal static class Program
             Check(low > 700 && low < 900 && high == 0, $"声望 0 约 40% 被冻：{low}/2000；声望 50 不会被冻：{high}");
         });
 
+        Test("Web3 黑市", () =>
+        {
+            Func<string, double> price = a => a == Assets.Ponero ? 50 : a == Assets.PSC ? 100 : 1;
+            var bm = new BlackMarket();
+            Check(!bm.Refresh(10, 5, new Rng(1), id => 100) && bm.Offers.Count == 0, "声望不够不开放");
+            Check(bm.Refresh(10, 45, new Rng(1), id => 100) && bm.Offers.Count > 0 && bm.Offers.All(o => o.Level <= 2 && o.Price == 130), "声望 45 开放中档，溢价 30%");
+            Check(!bm.Refresh(12, 45, new Rng(2), id => 100) && bm.Refresh(17, 45, new Rng(2), id => 100), "每周刷新");
+            var w = new Wallet { Address = "t" };
+            w.Add(Assets.PSC, 10); w.Add(Assets.CRT, 1000); w.Taint = 400; w.Basis = 800;   // 总价值 2000
+            var offer = new BmOffer { Item = "x", Qty = 1, Price = 500, Level = 1 };
+            bm.Offers.Add(offer);
+            Check(!bm.Buy(offer, w, Assets.CRC, price), "不收 CRC");
+            Check(bm.Buy(offer, w, Assets.CRT, price) && Near(w.Get(Assets.CRT), 500, 1e-9) && Near(w.Taint, 300, 1e-6) && Near(w.Basis, 600, 1e-6) && !bm.Offers.Contains(offer), "付币：污点与成本按比例留给卖家，卖完下架");
+            w = new Wallet { Address = "t" };
+            w.Add(Assets.PSC, 10); w.Taint = 500; w.Basis = 1000;   // 总价值 1000，PSC 价 100
+            double got = bm.ToPonero(w, Assets.PSC, 5, 20, price);   // 价值 500
+            Check(Near(got, 500 * (1 - Tuning.PoneroFee) / 50, 1e-9) && Near(w.Taint, 250, 1e-6) && Near(w.Get(Assets.PSC), 5, 1e-9), "兑入 Ponero：扣手续费，这部分污点留在原地");
+            Check(bm.ToPonero(w, Assets.PSC, 5.1, 20, price) < 0, "超过每日额度不能兑");
+            Check(bm.ToPonero(w, Assets.PSC, 5, 21, price) >= 0, "第二天额度恢复");
+            double back = bm.FromPonero(w, Assets.CRT, 10, 22, price);
+            Check(Near(back, 10 * 50 * (1 - Tuning.PoneroFee), 1e-9) && Near(w.Get(Assets.CRT), back, 1e-9), "兑出 Ponero");
+        });
+
         Console.WriteLine($"\n{_passed} 通过，{_failed} 失败");
         return _failed == 0 ? 0 : 1;
     }