defmodule BDS.Scripting.LuaTest do
  use ExUnit.Case, async: true

  test "validates Lua source" do
    assert :ok = BDS.Scripting.validate("function main() return 42 end")
  end

  test "rejects invalid Lua source" do
    assert {:error, {:compile_error, _details}} = BDS.Scripting.validate("function main(")
  end

  test "executes the configured entrypoint in a sandboxed Lua runtime" do
    source = "function main(a, b) return a + b end"

    assert {:ok, 42} = BDS.Scripting.execute(source, "main", [19, 23])
  end

  test "exposes progress reporting through the host boundary" do
    parent = self()

    source = """
    function main()
      bds.report_progress({phase = 'fetch', current = 1, total = 2})
      bds.report_progress({phase = 'write', current = 2, total = 2})
      return 'done'
    end
    """

    callback = fn progress -> send(parent, {:progress, progress}) end

    assert {:ok, "done"} = BDS.Scripting.execute(source, "main", [], on_progress: callback)

    assert_receive {:progress, %{"phase" => "fetch", "current" => 1, "total" => 2}}
    assert_receive {:progress, %{"phase" => "write", "current" => 2, "total" => 2}}
  end

  test "streams bds.app.log output through the on_output callback" do
    parent = self()

    source = """
    function main()
      bds.app.log('fetching')
      bds.app.log('done', 42)
      return 'ok'
    end
    """

    callback = fn text -> send(parent, {:script_output, text}) end

    assert {:ok, "ok"} =
             BDS.Scripting.execute_project_script("project-id", source, "main", [],
               on_output: callback
             )

    assert_receive {:script_output, "fetching"}
    assert_receive {:script_output, "done 42"}
  end

  test "routes print calls through the on_output callback" do
    parent = self()

    source = """
    function main()
      print('hello', 'world')
      return 'ok'
    end
    """

    callback = fn text -> send(parent, {:script_output, text}) end

    assert {:ok, "ok"} = BDS.Scripting.execute(source, "main", [], on_output: callback)

    assert_receive {:script_output, "hello world"}
  end

  test "log and print fall back to a silent sink without an on_output callback" do
    source = """
    function main()
      bds.app.log('note')
      print('hello')
      return 'ok'
    end
    """

    assert {:ok, "ok"} = BDS.Scripting.execute_project_script("project-id", source, "main", [])
  end

  test "sandbox blocks os.execute" do
    source = "function main() os.execute('echo hacked') end"

    assert {:error, _reason} = BDS.Scripting.execute(source, "main", [])
  end

  test "sandbox blocks os.rename" do
    source = "function main() os.rename('/etc/passwd', '/tmp/hacked') end"

    assert {:error, _reason} = BDS.Scripting.execute(source, "main", [])
  end

  test "sandbox blocks io.open for writing" do
    source = "function main() io.open('/tmp/hacked', 'w') end"

    assert {:error, _reason} = BDS.Scripting.execute(source, "main", [])
  end

  test "sandbox blocks require" do
    source = "function main() require('socket') end"

    assert {:error, _reason} = BDS.Scripting.execute(source, "main", [])
  end

  test "sandbox blocks dofile" do
    source = "function main() dofile('/etc/hosts') end"

    assert {:error, _reason} = BDS.Scripting.execute(source, "main", [])
  end

  test "sandbox blocks loadlib" do
    source = "function main() package.loadlib('libc.so', 'system') end"

    assert {:error, _reason} = BDS.Scripting.execute(source, "main", [])
  end

  test "enforces reduction limits" do
    source = "function main() while true do end end"

    assert {:error, {:reductions_exceeded, _count}} =
             BDS.Scripting.execute(source, "main", [], timeout: 1_000, max_reductions: 100)
  end
end