pasta_lua 0.2.4

-- pasta.act module tests
-- Tests for pasta.act module - token buffer refactoring
-- 親クラスのUI操作トークン蓄積、スポット切り替え検出、build/yield動作を検証
local describe = require("lua_test.test").describe
local test = require("lua_test.test").test
local expect = require("lua_test.test").expect

-- Mock actors for testing
local function create_mock_actors()
    return {
        sakura = { name = "さくら", spot = 0 },
        kero = { name = "うにゅう", spot = 1 },
        char2 = { name = "キャラ2", spot = 2 },
    }
end

-- ============================================================================
-- Requirement 1: UI操作トークン蓄積
-- ============================================================================

describe("ACT - surface()", function()
    test("蓄積トークンに { type = 'surface', id = id } を追加する", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:surface(5)

        expect(#act.token):toBe(1)
        expect(act.token[1].type):toBe("surface")
        expect(act.token[1].id):toBe(5)
    end)

    test("文字列IDをサポートする", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:surface("smile")

        expect(act.token[1].id):toBe("smile")
    end)

    test("メソッドチェーン用にselfを返す", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        local returned = act:surface(5)

        expect(returned):toBe(act)
    end)
end)

describe("ACT - wait()", function()
    test("蓄積トークンに { type = 'wait', ms = ms } を追加する", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:wait(500)

        expect(#act.token):toBe(1)
        expect(act.token[1].type):toBe("wait")
        expect(act.token[1].ms):toBe(500)
    end)

    test("負の値は0に変換する", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:wait(-100)

        expect(act.token[1].ms):toBe(0)
    end)

    test("小数点以下を切り捨てる", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:wait(500.7)

        expect(act.token[1].ms):toBe(500)
    end)

    test("nilは0として扱う", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:wait(nil)

        expect(act.token[1].ms):toBe(0)
    end)

    test("メソッドチェーン用にselfを返す", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        local returned = act:wait(500)

        expect(returned):toBe(act)
    end)
end)

describe("ACT - newline()", function()
    test("蓄積トークンに { type = 'newline', n = n } を追加する", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:newline(3)

        expect(#act.token):toBe(1)
        expect(act.token[1].type):toBe("newline")
        expect(act.token[1].n):toBe(3)
    end)

    test("引数なしの場合はn=1をデフォルトとする", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:newline()

        expect(act.token[1].n):toBe(1)
    end)

    test("メソッドチェーン用にselfを返す", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        local returned = act:newline()

        expect(returned):toBe(act)
    end)
end)

describe("ACT - clear()", function()
    test("蓄積トークンに { type = 'clear' } を追加する", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        act:clear()

        expect(#act.token):toBe(1)
        expect(act.token[1].type):toBe("clear")
    end)

    test("メソッドチェーン用にselfを返す", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        local returned = act:clear()

        expect(returned):toBe(act)
    end)
end)

-- ============================================================================
-- actor-spot-refactoring: set_spot()トークン化 (Task 1.1)
-- ============================================================================

describe("ACT - set_spot() トークン化", function()
    test("set_spot()が正しいトークン構造{type='spot', actor=Actor, spot=N}を生成する", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:set_spot("sakura", 0)

        expect(#act.token):toBe(1)
        expect(act.token[1].type):toBe("spot")
        expect(act.token[1].actor):toBe(actors.sakura)
        expect(act.token[1].spot):toBe(0)
    end)

    test("set_spot()呼び出し後もactor.spotが変更されていない（状態レス化）", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local original_spot = actors.sakura.spot
        local act = ACT.new(actors)

        act:set_spot("sakura", 5)

        -- actorオブジェクトの状態は変更されていない
        expect(actors.sakura.spot):toBe(original_spot)
    end)

    test("set_spot()でspotトークンを生成後、actorのspot属性は不変", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        -- sakuraのspotは0
        local before = actors.sakura.spot
        act:set_spot("sakura", 99)
        local after = actors.sakura.spot

        expect(before):toBe(after)
        expect(act.token[1].spot):toBe(99)
    end)
end)

-- ============================================================================
-- actor-spot-refactoring: clear_spot()トークン化 (Task 1.2)
-- ============================================================================

describe("ACT - clear_spot() トークン化", function()
    test("clear_spot()が正しいトークン構造{type='clear_spot'}を生成する", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:clear_spot()

        expect(#act.token):toBe(1)
        expect(act.token[1].type):toBe("clear_spot")
    end)

    test("clear_spot()呼び出し後もactorオブジェクトが変更されていない", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        -- 最初にスポットを設定しておく
        actors.sakura.spot = 0
        actors.kero.spot = 1

        act:clear_spot()

        -- actorオブジェクトの状態は変更されていない
        expect(actors.sakura.spot):toBe(0)
        expect(actors.kero.spot):toBe(1)
    end)
end)

-- ============================================================================
-- actor-spot-refactoring: talk()のactor情報追加 (Task 1.3)
-- ============================================================================

describe("ACT - talk() actor情報付きトークン生成", function()
    test("talk()が{type='talk', actor=Actor, text=text}トークンを生成する", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:talk(actors.sakura, "こんにちは")

        -- talk トークンにactor情報が含まれる
        local talk_token = nil
        for _, t in ipairs(act.token) do
            if t.type == "talk" then
                talk_token = t
                break
            end
        end

        expect(talk_token):toBeTruthy()
        expect(talk_token.actor):toBe(actors.sakura)
        expect(talk_token.text):toBe("こんにちは")
    end)

    test("talk()がactorトークンを生成しない（状態レス化）", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:talk(actors.sakura, "Hello")
        act:talk(actors.kero, "Hi")

        -- {type="actor"}トークンが存在しない
        local has_actor_token = false
        for _, t in ipairs(act.token) do
            if t.type == "actor" then
                has_actor_token = true
            end
        end

        expect(has_actor_token):toBe(false)
    end)

    test("talk()がspot_switchトークンを生成しない（状態レス化）", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:talk(actors.sakura, "Hello")
        act:talk(actors.kero, "Hi")

        -- {type="spot_switch"}トークンが存在しない
        local has_spot_switch = false
        for _, t in ipairs(act.token) do
            if t.type == "spot_switch" then
                has_spot_switch = true
            end
        end

        expect(has_spot_switch):toBe(false)
    end)
end)

-- ============================================================================
-- actor-spot-refactoring: 状態フィールド削除 (Task 1.4)
-- ============================================================================

describe("ACT - 状態フィールド削除", function()
    test("ACT.new()でnow_actorフィールドが存在しない", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        expect(act.now_actor):toBe(nil)
    end)

    test("ACT.new()で_current_spotフィールドが存在しない", function()
        local ACT = require("pasta.act")
        local act = ACT.new(create_mock_actors())

        expect(act._current_spot):toBe(nil)
    end)

    test("talk()呼び出し後もnow_actorが設定されない", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:talk(actors.sakura, "Hello")

        expect(act.now_actor):toBe(nil)
    end)
end)

-- ============================================================================
-- actor-spot-refactoring: アクタープロキシの独立性 (Task 4.2)
-- ============================================================================

describe("ACT - アクタープロキシの独立性", function()
    test("set_spot()呼び出しなしでact.さくら:talk()が動作する", function()
        local ACT = require("pasta.act")
        local actors = { ["さくら"] = { name = "さくら", spot = 0 } }
        local act = ACT.new(actors)

        -- set_spot()なしでプロキシ経由のtalk()を呼び出し
        act["さくら"]:talk("こんにちは")

        local talk_token = nil
        for _, t in ipairs(act.token) do
            if t.type == "talk" then
                talk_token = t
                break
            end
        end

        expect(talk_token):toBeTruthy()
        expect(talk_token.text):toBe("こんにちは")
    end)

    test("プロキシ経由のtalk()が正しいトークン（actor付き）を生成する", function()
        local ACT = require("pasta.act")
        local actors = { ["さくら"] = { name = "さくら", spot = 0 } }
        local act = ACT.new(actors)

        act["さくら"]:talk("テスト")

        local talk_token = nil
        for _, t in ipairs(act.token) do
            if t.type == "talk" then
                talk_token = t
                break
            end
        end

        expect(talk_token):toBeTruthy()
        expect(talk_token.actor):toBe(actors["さくら"])
        expect(talk_token.text):toBe("テスト")
    end)
end)

-- ============================================================================
-- Requirement 5: talk後の固定改行除去
-- ============================================================================

describe("ACT - talk()固定改行除去", function()
    test("talk()後にnewlineトークンを自動挿入しない", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:talk(actors.sakura, "Hello")

        -- newlineトークンが含まれていないことを確認
        local has_newline = false
        for _, t in ipairs(act.token) do
            if t.type == "newline" then
                has_newline = true
            end
        end
        expect(has_newline):toBe(false)
    end)
end)

-- ============================================================================
-- Requirement 7: 親build()メソッド（グループ化対応版）
-- ============================================================================

describe("ACT - build()", function()
    test("トークン配列を返却する", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        -- グループ化後: talkがないとactorグループが作成されないため、
        -- talkを追加してsurface/waitをグループ内に含める
        act:talk(actors.sakura, "test")
        act:surface(5)
        act:wait(100)
        local result = act:build()

        expect(type(result)):toBe("table")
        expect(#result):toBe(1)
        expect(result[1].type):toBe("actor")
        -- グループ内に3トークン: talk(統合済み), surface, wait
        -- 注: 連続talkは統合されるが、ここでは1つのみ
        expect(#result[1].tokens):toBe(3)
        expect(result[1].tokens[1].type):toBe("talk")
        expect(result[1].tokens[2].type):toBe("surface")
        expect(result[1].tokens[3].type):toBe("wait")
    end)

    test("build()後にself.tokenを空配列にリセットする", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:surface(5)
        local _ = act:build()

        expect(#act.token):toBe(0)
    end)

    test("トークン0件時はnilを返す (act-build-early-return)", function()
        local ACT = require("pasta.act")
        local act = ACT.new({})

        local token = act:build()

        expect(token):toBe(nil)
    end)
end)

-- ============================================================================
-- Requirement 8: 親yield()責務統一（グループ化対応版）
-- ============================================================================

describe("ACT - yield()", function()
    test("yield()はself:build()を呼び出す", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        -- グループ化後: talkでactorグループを作成し、surfaceを含める
        act:talk(actors.sakura, "test")
        act:surface(5)

        local co = coroutine.create(function()
            return act:yield()
        end)

        local ok, result = coroutine.resume(co)

        expect(ok):toBe(true)
        expect(type(result)):toBe("table") -- build()の結果
        expect(#result):toBe(1)
        expect(result[1].type):toBe("actor")
        -- グループ内: talk(統合済み), surface
        expect(#result[1].tokens):toBe(2)
        expect(result[1].tokens[1].type):toBe("talk")
        expect(result[1].tokens[2].type):toBe("surface")
    end)

    test("yield()後にトークンがリセットされる", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:talk(actors.sakura, "test")
        act:surface(5)

        local co = coroutine.create(function()
            return act:yield()
        end)

        local _, _ = coroutine.resume(co)

        expect(#act.token):toBe(0)
    end)

    test("yield()はメソッドチェーン用にselfを返す", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        act:talk(actors.sakura, "test")
        act:surface(5)

        local co = coroutine.create(function()
            local returned = act:yield()
            return returned
        end)

        -- 最初のresume: yield()でサスペンド
        local ok1, _ = coroutine.resume(co)
        expect(ok1):toBe(true)

        -- 2回目のresume: selfを返す
        local ok2, returned = coroutine.resume(co)
        expect(ok2):toBe(true)
        expect(returned):toBe(act)
    end)
end)

-- ============================================================================
-- Requirement 11: end_action()の削除
-- ============================================================================

describe("ACT - end_action()削除", function()
    test("end_action()メソッドが存在しない", function()
        local ACT = require("pasta.act")
        local act = ACT.new({})

        expect(act.end_action):toBe(nil)
    end)
end)

-- ============================================================================
-- メソッドチェーンテスト
-- ============================================================================

describe("ACT - メソッドチェーン", function()
    test("複数メソッドを連続呼び出し可能", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        local returned = act
            :surface(5)
            :wait(100)
            :newline(2)
            :clear()

        expect(returned):toBe(act)
        expect(#act.token):toBe(4)
    end)

    test("talk()もメソッドチェーンに対応", function()
        local ACT = require("pasta.act")
        local actors = create_mock_actors()
        local act = ACT.new(actors)

        local returned = act:talk(actors.sakura, "Hello")

        expect(returned):toBe(act)
    end)
end)