/* test_bt_dev.c — 蓝牙端点选择 / PCM 名构造 / 回落退避 宿主验证（纯逻辑，bt_dev.c）。
 *
 * 输入全部取自**真机实测格式**（bluealsa v4.1.1，设备 /usr/bin/bluealsa 的
 * `dev_%.2X_%.2X_%.2X_%.2X_%.2X_%.2X` + src/ba-transport.c 的 `<dev>/a2dpsrc/source`）：
 *   /org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsrc/source
 *
 * 覆盖矩阵：
 *   D1 bt_dev_detect_mac：真实 D-Bus 路径 → MAC；多端点/多设备取第一个 a2dpsrc；
 *      hfphf/a2dpsnk 不算；简化 `a2dpsrc/<MAC>` 兼容；空/无源端点/NULL/坏 dev_ 段 → -1。
 *   D2 bt_dev_count_src：0/1/2 个源端点。
 *   D3 bt_dev_codec_token：settings bt.codec → bluealsa canonical（4.1.1 别名表 strcasecmp）；
 *      auto/空/unchanged/垃圾 → unchanged。
 *   D4 bt_dev_pcm_name：内联 DEV/PROFILE/CODEC；坏 MAC/小缓冲 → -1。
 *   D5 bt_dev_backoff_ms / should_try：2s→60s 封顶 + 门控（防重试风暴）。
 *
 * 编译（在 patch_v2/meow_audiod 下）：
 *   cc -Wall -Wextra -o test_bt_dev test_bt_dev.c bt_dev.c
 * 运行：./test_bt_dev
 */
#include "bt_dev.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

static int g_pass = 0, g_fail = 0;
static void check(int cond, const char *name)
{
    if (cond) { printf("  PASS %s\n", name); g_pass++; }
    else      { printf("  FAIL %s\n", name); g_fail++; }
}

int main(void)
{
    setbuf(stdout, NULL);

    /* ==== D1 设备列表 → 选中 a2dpsrc 连接设备（真实 D-Bus 路径格式） ==== */
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac(
            "/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsrc/source\n", mac, sizeof mac);
        check(rc == 0 && strcmp(mac, "33:DE:2E:21:AD:30") == 0,
              "D1a real D-Bus path -> MAC (dev_ underscores -> colons)");
    }
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac(
            "/org/bluealsa/hci0/dev_E0_42_6D_79_C5_98/hfphf/source\n"
            "/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsnk/sink\n"
            "/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsrc/source\n", mac, sizeof mac);
        check(rc == 0 && strcmp(mac, "33:DE:2E:21:AD:30") == 0,
              "D1b hfphf/a2dpsnk skipped -> first a2dpsrc");
    }
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac(
            "/org/bluealsa/hci0/dev_AA_BB_CC_DD_EE_FF/a2dpsrc/source\n"
            "/org/bluealsa/hci0/dev_11_22_33_44_55_66/a2dpsrc/source\n", mac, sizeof mac);
        check(rc == 0 && strcmp(mac, "AA:BB:CC:DD:EE:FF") == 0, "D1c multi-device -> first a2dpsrc");
    }
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac("a2dpsrc/E0:42:6D:79:C5:98\n", mac, sizeof mac);
        check(rc == 0 && strcmp(mac, "E0:42:6D:79:C5:98") == 0, "D1d legacy a2dpsrc/<MAC> still parsed");
    }
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac("", mac, sizeof mac);
        check(rc == -1, "D1e empty output -> -1");
    }
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac(
            "/org/bluealsa/hci0/dev_11_22_33_44_55_66/a2dpsnk/sink\n", mac, sizeof mac);
        check(rc == -1, "D1f only sink (no a2dpsrc) -> -1");
    }
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac(NULL, mac, sizeof mac);
        check(rc == -1, "D1g NULL input -> -1");
    }
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac(
            "/org/bluealsa/hci0/dev_ZZ_42_6D_79_C5_98/a2dpsrc/source\n", mac, sizeof mac);
        check(rc == -1 && mac[0] == 0, "D1h malformed dev_ seg -> -1 (no garbage MAC)");
    }
    {
        char mac[32] = "";
        int rc = bt_dev_detect_mac(
            "/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsrc/source 1\n", mac, sizeof mac);
        check(rc == 0 && strcmp(mac, "33:DE:2E:21:AD:30") == 0, "D1i trailing token tolerated");
    }

    /* ==== D2 源端点计数（有无 A2DP 端点的快速判定） ==== */
    check(bt_dev_count_src("") == 0, "D2a empty -> 0");
    check(bt_dev_count_src(
              "/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsnk/sink\n") == 0,
          "D2b only sink -> 0");
    check(bt_dev_count_src(
              "/org/bluealsa/hci0/dev_33_DE_2E_21_AD_30/a2dpsrc/source\n") == 1,
          "D2c one a2dpsrc -> 1");
    check(bt_dev_count_src(
              "/org/bluealsa/hci0/dev_AA_BB_CC_DD_EE_FF/a2dpsrc/source\n"
              "/org/bluealsa/hci0/dev_11_22_33_44_55_66/a2dpsrc/source\n") == 2,
          "D2d two a2dpsrc -> 2");

    /* ==== D3 settings bt.codec → bluealsa canonical token ==== */
    {
        struct { const char *in; const char *want; const char *name; } t[] = {
            { "LDAC",       "LDAC",       "D3a LDAC passthrough" },
            { "ldac",       "LDAC",       "D3b lowercase ldac -> canonical" },
            { "SBC",        "SBC",        "D3c SBC" },
            { "AAC",        "AAC",        "D3d AAC" },
            { "MPEG24",     "AAC",        "D3e MPEG24 alias -> AAC" },
            { "aptX",       "aptX",       "D3f aptX" },
            { "apt-X",      "aptX",       "D3g apt-X alias -> aptX" },
            { "aptx-hd",    "aptX-HD",    "D3h aptx-hd -> aptX-HD" },
            { "MPEG",       "MP3",        "D3i MPEG alias -> MP3" },
            { "MP3",        "MP3",        "D3j MP3" },
            { "FastStream", "FastStream", "D3k FastStream" },
            { "FS",         "FastStream", "D3l FS alias -> FastStream" },
            { "auto",       "unchanged",  "D3m auto -> unchanged (do not touch negotiation)" },
            { "",           "unchanged",  "D3n empty -> unchanged" },
            { "unchanged",  "unchanged",  "D3o unchanged -> unchanged" },
            { "BOGUS",      "unchanged",  "D3p unknown -> unchanged (never inject junk)" },
        };
        for (size_t i = 0; i < sizeof t / sizeof t[0]; i++) {
            char tok[16] = "";
            const char *r = bt_dev_codec_token(t[i].in, tok, sizeof tok);
            check(r == tok && strcmp(tok, t[i].want) == 0, t[i].name);
        }
        char tok[16] = "";
        check(bt_dev_codec_token(NULL, tok, sizeof tok) == tok && !strcmp(tok, "unchanged"),
              "D3q NULL setting -> unchanged");
    }

    /* ==== D4 PCM 名构造（20-bluealsa.conf @args 只认 DEV/PROFILE/CODEC 这套名字） ==== */
    {
        char n[96] = "";
        int rc = bt_dev_pcm_name("33:DE:2E:21:AD:30", "LDAC", n, sizeof n);
        check(rc == 0 && strcmp(n, "bluealsa:DEV=33:DE:2E:21:AD:30,PROFILE=a2dp,CODEC=LDAC") == 0,
              "D4a name = bluealsa:DEV=<mac>,PROFILE=a2dp,CODEC=<token>");
    }
    {
        char n[96] = "";
        int rc = bt_dev_pcm_name("33:DE:2E:21:AD:30", "", n, sizeof n);
        check(rc == 0 && strstr(n, "CODEC=unchanged") != NULL, "D4b empty token -> CODEC=unchanged");
    }
    {
        char n[96] = "";
        int rc = bt_dev_pcm_name("33:DE:2E:21:AD:30", NULL, n, sizeof n);
        check(rc == 0 && strstr(n, "CODEC=unchanged") != NULL, "D4c NULL token -> CODEC=unchanged");
    }
    {
        char n[96] = "";
        check(bt_dev_pcm_name("33:DE:2E:21:AD", "LDAC", n, sizeof n) == -1, "D4d short MAC -> -1");
        check(bt_dev_pcm_name("GG:DE:2E:21:AD:30", "LDAC", n, sizeof n) == -1, "D4e non-hex MAC -> -1");
        check(bt_dev_pcm_name(NULL, "LDAC", n, sizeof n) == -1, "D4f NULL MAC -> -1");
        check(bt_dev_pcm_name("33:DE:2E:21:AD:30", "LDAC", n, 16) == -1, "D4g tiny buffer -> -1");
    }

    /* ==== D5 回落退避（防重试风暴：M10 教训） ==== */
    check(bt_dev_backoff_ms(0) == 0,      "D5a fails=0 -> 0ms (immediate)");
    check(bt_dev_backoff_ms(1) == 2000,   "D5b fails=1 -> 2s");
    check(bt_dev_backoff_ms(2) == 4000,   "D5c fails=2 -> 4s");
    check(bt_dev_backoff_ms(3) == 8000,   "D5d fails=3 -> 8s");
    check(bt_dev_backoff_ms(4) == 16000,  "D5e fails=4 -> 16s");
    check(bt_dev_backoff_ms(5) == 32000,  "D5f fails=5 -> 32s");
    check(bt_dev_backoff_ms(6) == 60000,  "D5g fails=6 -> 60s (capped)");
    check(bt_dev_backoff_ms(99) == 60000, "D5h fails=99 -> 60s (capped)");
    check(bt_dev_should_try(0, 0) == 1,        "D5i never failed -> try now");
    check(bt_dev_should_try(1, 1999) == 0,     "D5j fail#1 @1999ms -> gated");
    check(bt_dev_should_try(1, 2000) == 1,     "D5k fail#1 @2000ms -> allowed");
    check(bt_dev_should_try(3, 7999) == 0,     "D5l fail#3 @7999ms -> gated");
    check(bt_dev_should_try(3, 8000) == 1,     "D5m fail#3 @8000ms -> allowed");
    check(bt_dev_should_try(2, -1) == 1,       "D5n clock anomaly (negative) -> allowed (no deadlock)");

    printf(g_fail ? "\nRESULT: %d FAIL(S)\n" : "\nRESULT: ALL PASS (%d checks)\n",
           g_fail ? g_fail : g_pass);
    return g_fail ? 1 : 0;
}