From 976f80ed226e53625cd807539b9336f52f6eb091 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Thu, 20 Jun 2024 20:25:19 +0200
Subject: Removed the need for () after rnd
---
test/dup_cases.ml | 7 +++----
test/syntax.ml | 6 ++++++
2 files changed, 9 insertions(+), 4 deletions(-)
(limited to 'test')
diff --git a/test/dup_cases.ml b/test/dup_cases.ml
index 39bea23..cf1d4c1 100644
--- a/test/dup_cases.ml
+++ b/test/dup_cases.ml
@@ -20,11 +20,10 @@ end
|} []
(** The rnd function can generate different result, this is not a warning *)
-let ok_rnd () =
- _test_instruction {|
-if rnd():
+let ok_rnd () = _test_instruction {|
+if rnd:
0
-elseif rnd():
+elseif rnd:
0
end
|} []
diff --git a/test/syntax.ml b/test/syntax.ml
index aa3eecb..f15c72f 100644
--- a/test/syntax.ml
+++ b/test/syntax.ml
@@ -707,6 +707,11 @@ let test_function2 () =
[ Integer (_position, "0"); Integer (_position, "1") ] )));
]
+(** The RND function does not have parens after the name *)
+let test_rnd () =
+ _test_instruction "rnd"
+ [ Tree.Ast.Expression (Tree.Ast.Function (_position, T.Rnd, [])) ]
+
let test_precedence4 () =
_test_instruction "trim()" Ast.[ Expression (Function (_position, Trim, [])) ]
@@ -934,6 +939,7 @@ let test =
Alcotest.test_case "Call nl" `Quick test_nl;
Alcotest.test_case "Function iif" `Quick test_function;
Alcotest.test_case "Function rand" `Quick test_function2;
+ Alcotest.test_case "Function rnd" `Quick test_rnd;
Alcotest.test_case "Precedence4" `Quick test_precedence4;
Alcotest.test_case "Precedence5" `Quick test_precedence5;
Alcotest.test_case "Precedence6" `Quick test_precedence6;
--
cgit v1.2.3