defmodule Til.AdhocTest do
  @moduledoc """
  Adhoc tests for quick syntax checking and compiler features.
  These tests are not part of the main test suite and are used for
  quick manual checks.
  """
  use ExUnit.Case, async: true
  alias Til.TestHelpers

  describe "Adhoc tests for quick syntax checking and compiler features" do
    #   test "pretty_print_ast with nested structures and errors" do
    #     source = """
    #     (defun my_func [a b]
    #       (add a m{key 'val})
    #       (some_list 1 2
    #     """
    #
    #     {:ok, nodes_map} =
    #       Parser.parse(source, "adhoc_error_test.til")
    #
    #     AstUtils.pretty_print_ast(nodes_map)
    #     |> IO.puts()
    #
    #     AstUtils.build_debug_ast_data(nodes_map)
    #     |> IO.inspect(label: "AST Nodes", pretty: true, limit: :infinity)
    #   end
    # end

    test "asdasd" do
      source = """
      (defun :asd)
      """

      TestHelpers.typecheck_and_get_first_node(source)
      # |> IO.inspect(label: "First Node", pretty: true, limit: :infinity)
    end
  end
end