diff --git a/regression-tests/builtin/call.mq b/regression-tests/builtin/call.mq index 30f2e9d..3e18e45 100644 --- a/regression-tests/builtin/call.mq +++ b/regression-tests/builtin/call.mq @@ -1,8 +1,8 @@ -- Call executes blocks without parameters -say (call [42]), +say (call (|42)), -- Call executes block passing parameters -say (call [n | n + 1] 10), +say (call (n | n + 1) 10), -- Call executes builtin functions call say 43, diff --git a/regression-tests/builtin/if.mq b/regression-tests/builtin/if.mq index 5262b2c..8ed2000 100644 --- a/regression-tests/builtin/if.mq +++ b/regression-tests/builtin/if.mq @@ -1,13 +1,13 @@ -- If executes then first block when condition is true -if true [say 1], -if true [say 2] [say 3], +if true (say 1), +if true (say 2) (say 3), -- If executes second block when condition is false -if false [say 4] [say 5], +if false (say 4) (say 5), -- If returns nil when without else block -say (if false [say 6]), +say (if false (say 6)), -- If returns block execution value -say (if true [7]), -say (if false [say 100, 8] [say 200, 9]), +say (if true (7)), +say (if false (say 100, 8) (say 200, 9)), diff --git a/regression-tests/builtin/max.mq b/regression-tests/builtin/max.mq index c1c8dd9..696a837 100644 --- a/regression-tests/builtin/max.mq +++ b/regression-tests/builtin/max.mq @@ -3,4 +3,4 @@ say (max (200 + up 10)), say (max (100 + down 10)), -- Max should do deep search -say (max 1 2 [3, 4, [5, 10, 8], 1] 2), +say (max 1 2 (3, 4, (5, 10, 8), 1) 2), diff --git a/regression-tests/builtin/min.mq b/regression-tests/builtin/min.mq index 984b1ec..50c1a15 100644 --- a/regression-tests/builtin/min.mq +++ b/regression-tests/builtin/min.mq @@ -3,4 +3,4 @@ say (min (200 + up 10)), say (min (100 + down 10)), -- Min should do deep search -say (min 1 2 [3, 4, [5, 0, 8], 1] 2), +say (min 1 2 (3, 4, (5, 0, 8), 1) 2), diff --git a/regression-tests/builtin/reverse.mq b/regression-tests/builtin/reverse.mq index ba7b5f6..c660389 100644 --- a/regression-tests/builtin/reverse.mq +++ b/regression-tests/builtin/reverse.mq @@ -1,4 +1,4 @@ -say (reverse []), +say (reverse ()), say (reverse (up 10)), say (reverse (reverse (up 10))), -say (reverse [[1, 2, 3], 4, 5] 6 7 [[8, 9]]), +say (reverse ((1, 2, 3), 4, 5) 6 7 ((8, 9))), diff --git a/regression-tests/builtin/typeof.mq b/regression-tests/builtin/typeof.mq index e60aff3..056f181 100644 --- a/regression-tests/builtin/typeof.mq +++ b/regression-tests/builtin/typeof.mq @@ -1,6 +1,6 @@ say (typeof (call flat)), say (typeof 0), -say (typeof []), +say (typeof ()), say (typeof c), say (typeof false), say (typeof nil), diff --git a/regression-tests/builtin/uniq.mq b/regression-tests/builtin/uniq.mq index 8b5db01..b681360 100644 --- a/regression-tests/builtin/uniq.mq +++ b/regression-tests/builtin/uniq.mq @@ -1,5 +1,5 @@ say (uniq (up 10 & down 10)), -say (uniq [1,1,1,3,5,3,4,4,1]), +say (uniq (1,1,1,3,5,3,4,4,1)), -- Multiple uniq applications shouldn't matter -say (uniq (uniq [1,1,1,3,5,3,4,4,1])), +say (uniq (uniq (1,1,1,3,5,3,4,4,1))), diff --git a/regression-tests/builtin/unique.mq b/regression-tests/builtin/unique.mq index 673308b..ac5e173 100644 --- a/regression-tests/builtin/unique.mq +++ b/regression-tests/builtin/unique.mq @@ -1,5 +1,5 @@ say (unique (up 10 & down 10)), -say (unique [1,1,1,3,5,3,4,4,1]), +say (unique (1,1,1,3,5,3,4,4,1)), -- Multiple unique applications shouldn't matter -say (unique (unique [1,1,1,3,5,3,4,4,1])), +say (unique (unique (1,1,1,3,5,3,4,4,1))), diff --git a/regression-tests/test_db.json b/regression-tests/test_db.json index 76f188a..89e6fd7 100644 --- a/regression-tests/test_db.json +++ b/regression-tests/test_db.json @@ -101,6 +101,105 @@ "(9, 7, 5, 3, 1)" ], "stderr_lines": [] + }, + { + "name": "min.mq", + "exit_code": 0, + "stdin_lines": [], + "stdout_lines": [ + "1", + "200", + "100", + "0" + ], + "stderr_lines": [] + }, + { + "name": "call.mq", + "exit_code": 0, + "stdin_lines": [], + "stdout_lines": [ + "42", + "11", + "43" + ], + "stderr_lines": [] + }, + { + "name": "if.mq", + "exit_code": 0, + "stdin_lines": [], + "stdout_lines": [ + "1", + "2", + "5", + "nil", + "7", + "200", + "9" + ], + "stderr_lines": [] + }, + { + "name": "uniq.mq", + "exit_code": 0, + "stdin_lines": [], + "stdout_lines": [ + "(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0)", + "(1, 3, 5, 3, 4, 1)", + "(1, 3, 5, 3, 4, 1)" + ], + "stderr_lines": [] + }, + { + "name": "reverse.mq", + "exit_code": 0, + "stdin_lines": [], + "stdout_lines": [ + "()", + "(9, 8, 7, 6, 5, 4, 3, 2, 1, 0)", + "(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)", + "(9, 8, 7, 6, 5, 4, (1, 2, 3))" + ], + "stderr_lines": [] + }, + { + "name": "typeof.mq", + "exit_code": 0, + "stdin_lines": [], + "stdout_lines": [ + "array", + "number", + "block", + "music", + "bool", + "nil", + "intrinsic" + ], + "stderr_lines": [] + }, + { + "name": "unique.mq", + "exit_code": 0, + "stdin_lines": [], + "stdout_lines": [ + "(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)", + "(1, 3, 5, 4)", + "(1, 3, 5, 4)" + ], + "stderr_lines": [] + }, + { + "name": "max.mq", + "exit_code": 0, + "stdin_lines": [], + "stdout_lines": [ + "5", + "209", + "109", + "10" + ], + "stderr_lines": [] } ] }