From 1e182dca2972fbd29e50f611dbf12eb28d6cdd95 Mon Sep 17 00:00:00 2001 From: Chimrod <> Date: Thu, 9 Nov 2023 12:42:37 +0100 Subject: Added a test --- test/nested_string.ml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'test/nested_string.ml') diff --git a/test/nested_string.ml b/test/nested_string.ml index 3338fa3..f674ee2 100644 --- a/test/nested_string.ml +++ b/test/nested_string.ml @@ -22,6 +22,7 @@ let string_variable () = _test_instruction {|"<<$variable>>"|} report let integer () = _test_instruction {|"<<123>>"|} [] let integer_variable () = _test_instruction {|"<>"|} [] +let indexed_text () = _test_instruction {|variable['<<$variable>>']|} report let test = ( "Nested_strings checker", @@ -31,4 +32,5 @@ let test = Alcotest.test_case "Integer" `Quick integer; Alcotest.test_case "String" `Quick string; Alcotest.test_case "Integer variable" `Quick integer_variable; + Alcotest.test_case "Indexed text" `Quick indexed_text; ] ) -- cgit v1.2.3