module Check = Make_checkTest.M (Qsp_syntax.Nested_strings)

let _position = (Lexing.dummy_pos, Lexing.dummy_pos)

let _test_instruction : string -> Qsp_syntax.Report.t list -> unit =
  Check._test_instruction

let nothing () = _test_instruction {|
"value = <<$variable>>"
  |} []

let simple_expression () =
  _test_instruction {|"<<$variable>>"|}
    [
      {
        level = Debug;
        loc = _position;
        message = "This expression can be simplified";
      };
    ]

let test =
  ( "Nested_strings checker",
    [
      Alcotest.test_case "Ok" `Quick nothing;
      Alcotest.test_case "Simple expression" `Quick simple_expression;
    ] )