package cat

import "testing"

func TestParseYaesuFreq(t *testing.T) {
	cases := []struct {
		reply, prefix string
		want          int64
		ok            bool
	}{
		{"FA014074000;", "FA", 14074000, true},
		{"FB007100000;", "FB", 7100000, true},
		{"FA000474000;", "FA", 474000, true}, // 630 m — leading zeros must not truncate
		{"FA010368000000;", "FA", 10368000000, true},
		{"FB;", "FB", 0, false},          // query echoed back with no value
		{"FA014074000;", "FB", 0, false}, // wrong VFO — never silently accepted
		{"", "FA", 0, false},
		{"FAxxxxxxxxx;", "FA", 0, false},
	}
	for _, c := range cases {
		got, ok := parseYaesuFreq(c.reply, c.prefix)
		if got != c.want || ok != c.ok {
			t.Errorf("parseYaesuFreq(%q,%q) = %d,%v — want %d,%v", c.reply, c.prefix, got, ok, c.want, c.ok)
		}
	}
}

// The split rules. Getting these wrong writes a WRONG TX frequency into the log,
// which is why an ambiguous state resolves to "not split" rather than to a
// guess — the same principle the OmniRig backend arrived at the hard way.
func TestResolveYaesuVFOs(t *testing.T) {
	const a, b = 14074000, 14100000
	cases := []struct {
		name           string
		fa, fb         int64
		vfo            string
		split          bool
		wantTX, wantRX int64
		wantSplit      bool
	}{
		{"simplex on A", a, b, "A", false, a, 0, false},
		{"simplex on B", a, b, "B", false, b, 0, false},
		{"split, listening on A → TX on B", a, b, "A", true, b, a, true},
		{"split, listening on B → TX on A", a, b, "B", true, a, b, true},
		{"split flag but the other VFO is unread", a, 0, "A", true, a, 0, false},
		{"split flag but both VFOs identical", a, a, "A", true, a, 0, false},
	}
	for _, c := range cases {
		tx, rx, sp := resolveYaesuVFOs(c.fa, c.fb, c.vfo, c.split)
		if tx != c.wantTX || rx != c.wantRX || sp != c.wantSplit {
			t.Errorf("%s: got tx=%d rx=%d split=%v — want tx=%d rx=%d split=%v",
				c.name, tx, rx, sp, c.wantTX, c.wantRX, c.wantSplit)
		}
	}
}

// ST and FT say different things, and reading them alike inverted the split
// display on an FTDX101 (F4NBZ, 2026-07-29): the panel showed split ON with the
// radio OFF and the reverse.
//
//	ST is a split FLAG   — ST1 means split, whatever VFO is in use.
//	FT names the TX VFO  — FT0 = transmit on A, FT1 = transmit on B.
//
// Split is on when the rig transmits on a DIFFERENT VFO from the one it listens
// to, so FT has to be compared with the current VFO. That is why the same model
// behaved correctly for one operator and backwards for another: one was on MAIN,
// the other on SUB.
func TestYaesuSplitReply(t *testing.T) {
	cases := []struct {
		reply, cmd, vfo string
		want            bool
	}{
		// The flag is absolute.
		{"ST1;", "ST", "A", true},
		{"ST0;", "ST", "A", false},
		{"ST1;", "ST", "B", true},
		{"ST0;", "ST", "B", false},

		// Listening on A: transmit on B is split, transmit on A is not.
		{"FT1;", "FT", "A", true},
		{"FT0;", "FT", "A", false},
		// Listening on B: exactly the opposite — the reported inversion.
		{"FT0;", "FT", "B", true},
		{"FT1;", "FT", "B", false},
		// The pair enums the Yaesus also report start with the listening VFO.
		{"FT0;", "FT", "BA", true},
		{"FT1;", "FT", "AB", true},

		{"ST1;", "FT", "A", false}, // reply for the other command — not accepted
		{"ST", "ST", "A", false},   // truncated
		{"", "ST", "A", false},
	}
	for _, c := range cases {
		if got := yaesuSplitFromReply(c.reply, c.cmd, c.vfo); got != c.want {
			t.Errorf("yaesuSplitFromReply(%q, %q, vfo=%q) = %v, want %v",
				c.reply, c.cmd, c.vfo, got, c.want)
		}
	}
}

// The sideband follows the frequency, worldwide convention — a CAT backend that
// puts USB on 40 m makes every SSB QSO wrong.
func TestYaesuModeDigit(t *testing.T) {
	cases := []struct {
		mode string
		hz   int64
		want byte
	}{
		{"SSB", 7150000, '1'},  // LSB below 10 MHz
		{"SSB", 14250000, '2'}, // USB above
		{"LSB", 14250000, '1'}, // explicit wins over the convention
		{"USB", 7150000, '2'},
		{"CW", 7030000, '3'},
		{"RTTY", 14080000, '6'},
		{"AM", 7150000, '5'},
		{"FM", 145000000, '4'},
		{"FT8", 7074000, '8'},  // DATA-LSB
		{"FT8", 14074000, 'C'}, // DATA-USB
		{"JS8", 14078000, 'C'}, // any unknown digital rides on DATA
		{"", 14074000, 0},      // nothing to set
	}
	for _, c := range cases {
		if got := yaesuModeDigit(c.mode, c.hz); got != c.want {
			t.Errorf("yaesuModeDigit(%q, %d) = %q, want %q", c.mode, c.hz, got, c.want)
		}
	}
}

// A reply belongs to the command that asked for it.
//
// Without this, a CW macro knocked the CAT link over: KY produces no reply, so
// the poll loop's next FA; collected a leftover frame, failed to parse it as a
// frequency, and the Manager treated that as "lost the rig" and reconnected —
// the CAT dropping for a few seconds on every macro click.
func TestYaesuCmdPrefix(t *testing.T) {
	cases := []struct{ cmd, want string }{
		{"FA;", "FA"},
		{"FB;", "FB"},
		{"MD0;", "MD"},
		{"KY;", "KY"},
		{"KY CQ TEST;", "KY"},
		{"SM0;", "SM"},
		{"RM4;", "RM"},
		{"AG0;", "AG"},
		{"TX;", "TX"},
		{"", ""},
		{";", ""},
	}
	for _, c := range cases {
		if got := cmdPrefix(c.cmd); got != c.want {
			t.Errorf("cmdPrefix(%q) = %q, want %q", c.cmd, got, c.want)
		}
	}
}

// Writing split is as asymmetric as reading it.
//
// ST takes the state directly. FT sets which VFO TRANSMITS, so "split on" means
// transmit on the OTHER VFO from the one being listened to. Sending FT1 for "on"
// regardless is right only on VFO A — on SUB it would CLEAR the split it was
// asked to set, which is the same inversion that showed on the FTDX101 panel.
func TestYaesuSplitCommand(t *testing.T) {
	cases := []struct {
		cmd, vfo string
		on       bool
		want     string
	}{
		{"ST", "A", true, "ST1;"},
		{"ST", "B", true, "ST1;"}, // the flag does not care which VFO
		{"ST", "B", false, "ST0;"},

		// Listening on A: split means transmit on B.
		{"FT", "A", true, "FT1;"},
		{"FT", "A", false, "FT0;"},
		// Listening on B: split means transmit on A — the reverse.
		{"FT", "B", true, "FT0;"},
		{"FT", "B", false, "FT1;"},
		// Pair enums start with the listening VFO.
		{"FT", "BA", true, "FT0;"},
		{"FT", "AB", true, "FT1;"},
	}
	for _, c := range cases {
		if got := yaesuSplitCommand(c.cmd, c.vfo, c.on); got != c.want {
			t.Errorf("yaesuSplitCommand(%q, vfo=%q, on=%v) = %q, want %q",
				c.cmd, c.vfo, c.on, got, c.want)
		}
	}
}