defmodule Til.FileParseTest do
  use ExUnit.Case, async: true

  alias Til.Parser
  alias Til.AstUtils
  alias Til.TestHelpers

  describe "test File parsing features" do
    test "parse multiple top-level s-exps into 1 `file` ast node" do
      source = """
      (defun)
      (defun)
      """

      {:ok, nodes_map} =
        Parser.parse(source, "top-level-sexps.til")

      assert TestHelpers.get_file_node_from_map(nodes_map).ast_node_type == :file
    end
  end
end