@mojir/lits 2.1.34 → 2.1.36

package/dist/testFramework.esm.js

@@ -13913,9 +13913,6 @@ var Parser = /** @class */ (function () {
                 case 'doseq':
                     left = this.parseForOrDoseq(firstToken);
                     break;
-                // cas:
-                //   left = this.parseDo(firstToken)
-                //   break
                 case 'loop':
                     left = this.parseLoop(firstToken);
                     break;
@@ -14117,6 +14114,12 @@ var Parser = /** @class */ (function () {
                     params.push(withSourceCodeInfo([NodeTypes.String, value], token[2]));
                     this.advance();
                 }
+                else if (isLBracketToken(token)) {
+                    this.advance();
+                    params.push(this.parseExpression());
+                    assertRBracketToken(this.peek());
+                    this.advance();
+                }
                 else {
                     throw new LitsError('Expected key to be a symbol or a string', this.peekSourceCodeInfo());
                 }
@@ -14247,9 +14250,17 @@ var Parser = /** @class */ (function () {
             var nodes = void 0;
             var docString = '';
             if (isLBraceToken(this.peek())) {
-                var parsedBlock = this.parseBlock(true);
-                docString = parsedBlock[1];
-                nodes = parsedBlock[0][1][1];
+                var positionBefore = this.parseState.position;
+                try {
+                    var objectNode = this.parseObject();
+                    nodes = [objectNode];
+                }
+                catch (_a) {
+                    this.parseState.position = positionBefore;
+                    var parsedBlock = this.parseBlock(true);
+                    docString = parsedBlock[1];
+                    nodes = parsedBlock[0][1][1];
+                }
             }
             else {
                 nodes = [this.parseExpression()];
@@ -14266,7 +14277,7 @@ var Parser = /** @class */ (function () {
                 ],
             ], firstToken[2]);
         }
-        catch (_a) {
+        catch (_b) {
             return null;
         }
     };
@@ -14316,9 +14327,17 @@ var Parser = /** @class */ (function () {
         var nodes;
         var docString = '';
         if (isLBraceToken(this.peek())) {
-            var parsedBlock = this.parseBlock(true);
-            docString = parsedBlock[1];
-            nodes = parsedBlock[0][1][1];
+            var positionBefore = this.parseState.position;
+            try {
+                var objectNode = this.parseObject();
+                nodes = [objectNode];
+            }
+            catch (_b) {
+                this.parseState.position = positionBefore;
+                var parsedBlock = this.parseBlock(true);
+                docString = parsedBlock[1];
+                nodes = parsedBlock[0][1][1];
+            }
         }
         else {
             nodes = [this.parseExpression()];
@@ -14516,9 +14535,6 @@ var Parser = /** @class */ (function () {
                 throw new LitsError('Expected }', this.peekSourceCodeInfo());
             }
         }
-        if (expressions.length === 0) {
-            expressions.push(withSourceCodeInfo([NodeTypes.ReservedSymbol, 'null'], token[2]));
-        }
         assertRBraceToken(this.peek());
         this.advance();
         return [
@@ -14596,8 +14612,7 @@ var Parser = /** @class */ (function () {
     };
     Parser.prototype.parseTry = function (token) {
         this.advance();
-        var tryExpression = this.parseExpression();
-        assertReservedSymbolToken(this.peek(), 'catch');
+        var tryExpression = this.parseImplicitBlock(['catch']);
         this.advance();
         var errorSymbol;
         if (isLParenToken(this.peek())) {
@@ -14606,7 +14621,8 @@ var Parser = /** @class */ (function () {
             assertRParenToken(this.peek());
             this.advance();
         }
-        var catchExpression = this.parseExpression();
+        var catchExpression = this.parseImplicitBlock(['end']);
+        this.advance();
         return withSourceCodeInfo([NodeTypes.SpecialExpression, [specialExpressionTypes.try, tryExpression, errorSymbol, catchExpression]], token[2]);
     };
     Parser.prototype.parseForOrDoseq = function (firstToken) {
@@ -15711,7 +15727,7 @@ var assertReference = {
             { argumentNames: ['value', 'message'] },
         ],
         description: 'If $value is falsy it throws `AssertionError` with $message. If no $message is provided, message is set to $value.',
-        examples: ['try { assert(0, "Expected a positive value") } catch (e) { e.message }'],
+        examples: ['try assert(0, "Expected a positive value") catch (e) e.message end'],
         noOperatorDocumentation: true,
     },
     'assert!=': {
@@ -15729,10 +15745,10 @@ var assertReference = {
         ],
         description: 'If $a is the same as $b it throws `AssertionError`.',
         examples: [
-            'try { assert!=(0, 0, "Expected different values") } catch (e) { e.message }',
-            'try { assert!=(0, 0) } catch (e) { e.message }',
-            'try { 0 assert!= 0 } catch (e) { e.message }',
-            'try { assert!=(0, 1) } catch (e) { e.message }',
+            'try assert!=(0, 0, "Expected different values") catch (e) e.message end',
+            'try assert!=(0, 0) catch (e) e.message end',
+            'try 0 assert!= 0 catch (e) e.message end',
+            'try assert!=(0, 1) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15751,9 +15767,9 @@ var assertReference = {
         ],
         description: 'If $a is not structural equal to $b it throws `AssertionError`.',
         examples: [
-            'try { assert=({ "a": 1 }, { "a": 2 }, "Expected equal values") } catch (e) { e.message }',
-            'try { assert=({ "a": 1 }, { "a": 2 }) } catch (e) { e.message }',
-            'try { assert=({ "a": 1 }, { "a": 1 }) } catch (e) { e.message }',
+            'try assert=({ "a": 1 }, { "a": 2 }, "Expected equal values") catch (e) e.message end',
+            'try assert=({ "a": 1 }, { "a": 2 }) catch (e) e.message end',
+            'try assert=({ "a": 1 }, { "a": 1 }) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15772,9 +15788,9 @@ var assertReference = {
         ],
         description: 'If $a is not greater than $b it throws `AssertionError`.',
         examples: [
-            'try { assert-gt(0, 1, "Expected greater value") } catch (e) { e.message }',
-            'try { assert-gt(0, 0) } catch (e) { e.message }',
-            'try { assert-gt(1, 0) } catch (e) { e.message }',
+            'try assert-gt(0, 1, "Expected greater value") catch (e) e.message end',
+            'try assert-gt(0, 0) catch (e) e.message end',
+            'try assert-gt(1, 0) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15793,9 +15809,9 @@ var assertReference = {
         ],
         description: 'If $a is not less than $b it throws `AssertionError`.',
         examples: [
-            'try { assert-lte(1, 0, "Expected smaller value value") } catch (e) { e.message }',
-            'try { assert-lte(1, 1) } catch (e) { e.message }',
-            'try { assert-lte(0, 1) } catch (e) { e.message }',
+            'try assert-lte(1, 0, "Expected smaller value value") catch (e) e.message end',
+            'try assert-lte(1, 1) catch (e) e.message end',
+            'try assert-lte(0, 1) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15814,9 +15830,9 @@ var assertReference = {
         ],
         description: 'If $a is less than $b it throws `AssertionError`.',
         examples: [
-            'try { assert-gte(0, 1, "Expected greater value") } catch (e) { e.message }',
-            'try { assert-gte(0, 1) } catch (e) { e.message }',
-            'try { assert-gte(1, 1) } catch (e) { e.message }',
+            'try assert-gte(0, 1, "Expected greater value") catch (e) e.message end',
+            'try assert-gte(0, 1) catch (e) e.message end',
+            'try assert-gte(1, 1) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15835,9 +15851,9 @@ var assertReference = {
         ],
         description: 'If $a is grater than $b it throws `AssertionError`.',
         examples: [
-            'try { assert-lte(1, 0, "Expected smaller value value") } catch (e) { e.message }',
-            'try { assert-lte(1, 0) } catch (e) { e.message }',
-            'try { assert-lte(1, 1) } catch (e) { e.message }',
+            'try assert-lte(1, 0, "Expected smaller value value") catch (e) e.message end',
+            'try assert-lte(1, 0) catch (e) e.message end',
+            'try assert-lte(1, 1) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15861,9 +15877,9 @@ var assertReference = {
         ],
         description: 'If $value is not `true` it throws `AssertionError`.',
         examples: [
-            'try { assert-true(false, "Expected true") } catch (e) { e.message }',
-            'try { assert-true(false) } catch (e) { e.message }',
-            'try { assert-true(true) } catch (e) { e.message }',
+            'try assert-true(false, "Expected true") catch (e) e.message end',
+            'try assert-true(false) catch (e) e.message end',
+            'try assert-true(true) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15887,9 +15903,9 @@ var assertReference = {
         ],
         description: 'If $value is not `false` it throws `AssertionError`.',
         examples: [
-            'try { assert-false(true, "Expected false") } catch (e) { e.message }',
-            'try { assert-false(true) } catch (e) { e.message }',
-            'try { assert-false(false) } catch (e) { e.message }',
+            'try assert-false(true, "Expected false") catch (e) e.message end',
+            'try assert-false(true) catch (e) e.message end',
+            'try assert-false(false) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15913,16 +15929,16 @@ var assertReference = {
         ],
         description: 'If $value is not `truthy` it throws `AssertionError`.',
         examples: [
-            'try { assert-truthy(false, "Expected truthy") } catch (e) { e.message }',
-            'try { assert-truthy(false) } catch (e) { e.message }',
-            'try { assert-truthy(0) } catch (e) { e.message }',
-            'try { assert-truthy(null) } catch (e) { e.message }',
-            'try { assert-truthy("") } catch (e) { e.message }',
-            'try { assert-truthy(true) } catch (e) { e.message }',
-            'try { assert-truthy(1) } catch (e) { e.message }',
-            'try { assert-truthy("x") } catch (e) { e.message }',
-            'try { assert-truthy([]) } catch (e) { e.message }',
-            'try { assert-truthy({}) } catch (e) { e.message }',
+            'try assert-truthy(false, "Expected truthy") catch (e) e.message end',
+            'try assert-truthy(false) catch (e) e.message end',
+            'try assert-truthy(0) catch (e) e.message end',
+            'try assert-truthy(null) catch (e) e.message end',
+            'try assert-truthy("") catch (e) e.message end',
+            'try assert-truthy(true) catch (e) e.message end',
+            'try assert-truthy(1) catch (e) e.message end',
+            'try assert-truthy("x") catch (e) e.message end',
+            'try assert-truthy([]) catch (e) e.message end',
+            'try assert-truthy(nd) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15946,15 +15962,15 @@ var assertReference = {
         ],
         description: 'If $value is not `falsy` it throws `AssertionError`.',
         examples: [
-            'try { assert-falsy(true, "Expected falsy") } catch (e) { e.message }',
-            'try { assert-falsy("x") } catch (e) { e.message }',
-            'try { assert-falsy([]) } catch (e) { e.message }',
-            'try { assert-falsy({}) } catch (e) { e.message }',
-            'try { assert-falsy(1) } catch (e) { e.message }',
-            'try { assert-falsy(false) } catch (e) { e.message }',
-            'try { assert-falsy(0) } catch (e) { e.message }',
-            'try { assert-falsy(null) } catch (e) { e.message }',
-            'try { assert-falsy("") } catch (e) { e.message }',
+            'try assert-falsy(true, "Expected falsy") catch (e) e.message end',
+            'try assert-falsy("x") catch (e) e.message end',
+            'try assert-falsy([]) catch (e) e.message end',
+            'try assert-falsy(nd) catch (e) e.message end',
+            'try assert-falsy(1) catch (e) e.message end',
+            'try assert-falsy(false) catch (e) e.message end',
+            'try assert-falsy(0) catch (e) e.message end',
+            'try assert-falsy(null) catch (e) e.message end',
+            'try assert-falsy("") catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -15978,15 +15994,15 @@ var assertReference = {
         ],
         description: 'If $value is not `null` it throws `AssertionError`.',
         examples: [
-            'try { assert-null(null) } catch (e) { e.message }',
-            'try { assert-null(true, "Expected null") } catch (e) { e.message }',
-            'try { assert-null("x") } catch (e) { e.message }',
-            'try { assert-null([]) } catch (e) { e.message }',
-            'try { assert-null({}) } catch (e) { e.message }',
-            'try { assert-null(1) } catch (e) { e.message }',
-            'try { assert-null(false) } catch (e) { e.message }',
-            'try { assert-null(0) } catch (e) { e.message }',
-            'try { assert-null("") } catch (e) { e.message }',
+            'try assert-null(null) catch (e) e.message end',
+            'try assert-null(true, "Expected null") catch (e) e.message end',
+            'try assert-null("x") catch (e) e.message end',
+            'try assert-null([]) catch (e) e.message end',
+            'try assert-null(nd) catch (e) e.message end',
+            'try assert-null(1) catch (e) e.message end',
+            'try assert-null(false) catch (e) e.message end',
+            'try assert-null(0) catch (e) e.message end',
+            'try assert-null("") catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -16011,7 +16027,7 @@ var assertReference = {
         description: 'If $fun does not throw, it throws `AssertionError`.',
         examples: [
             'assert-throws(-> throw("Error"))',
-            'try { assert-throws(-> identity("Error")) } catch (e) { e.message }',
+            'try assert-throws(-> identity("Error")) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -16038,8 +16054,8 @@ var assertReference = {
         ],
         description: 'If $fun does not throw $error-message, it throws `AssertionError`.',
         examples: [
-            'try { assert-throws-error(-> throw("Error"), "Error") } catch (e) { e.message }',
-            'try { assert-throws-error(-> identity("Error"), "Error") } catch (e) { e.message }',
+            'try assert-throws-error(-> throw("Error"), "Error") catch (e) e.message end',
+            'try assert-throws-error(-> identity("Error"), "Error") catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -16063,8 +16079,8 @@ var assertReference = {
         ],
         description: 'If $fun throws, it throws `AssertionError`.',
         examples: [
-            'try { assert-not-throws(-> identity("Error")) } catch (e) { e.message }',
-            'try { assert-not-throws(-> throw("Error")) } catch (e) { e.message }',
+            'try assert-not-throws(-> identity("Error")) catch (e) e.message end',
+            'try assert-not-throws(-> throw("Error")) catch (e) e.message end',
         ],
         noOperatorDocumentation: true,
     },
@@ -26631,6 +26647,50 @@ var sequenceReference = {
 };
 
 var specialExpressionsReference = {
+    'doseq': {
+        title: 'doseq',
+        category: 'Special expression',
+        customVariants: ['doseq (...binding) -> body'],
+        details: [
+            ['binding', 'loop-var in collection [...let-binding] [where whereExpr] [while whileExp]', 'A doseq loop binding'],
+            ['loop-var', 'symbol', 'The name of the loop variable.'],
+            ['collection', 'any', 'The collection to iterate over.'],
+            ['let-binding', 'let binding', 'A let binding to create a local variable.'],
+            ['whereExpr', 'expression', 'An expression that must evaluate to truthy for the loop body to be executed.'],
+            ['whileExp', 'expression', 'An expression that must evaluate to truthy for the loop to continue.'],
+            ['body', 'expressions', 'The expressions to evaluate for each iteration of the loop.'],
+        ],
+        returns: {
+            type: 'null',
+        },
+        description: 'Iterates over `bindings`, evaluates `body` for each `binding` and returns `null`. This is useful for side effects.',
+        examples: [
+            "\ndoseq (i in [1, 2, 3]) -> write!(i * 2)\n      ",
+        ],
+    },
+    'for': {
+        title: 'for',
+        category: 'Special expression',
+        customVariants: ['for (...binding) -> body'],
+        details: [
+            ['binding', 'loop-var in collection [...let-binding] [where whereExpr] [while whileExp]', 'A for loop binding'],
+            ['loop-var', 'symbol', 'The name of the loop variable.'],
+            ['collection', 'any', 'The collection to iterate over.'],
+            ['let-binding', 'let binding', 'A let binding to create a local variable.'],
+            ['whereExpr', 'expression', 'An expression that must evaluate to truthy for the loop body to be executed.'],
+            ['whileExp', 'expression', 'An expression that must evaluate to truthy for the loop to continue.'],
+            ['body', 'expressions', 'The expressions to evaluate for each iteration of the loop.'],
+        ],
+        returns: {
+            type: 'any',
+            array: true,
+        },
+        description: 'Iterates over `bindings`, evaluates `body` for each `binding` and returns an `array` of results.',
+        examples: [
+            "\nfor (i in [1, 2, 3]) -> i * 2\n      ",
+            "\nfor (\n  i in range(10) let ii = i ^ 2 while ii < 40 when ii % 3 == 0,\n  j in range(10) when j % 2 == 1\n) -> ii + j\n      ",
+        ],
+    },
     'array': {
         title: 'array',
         category: 'Special expression',
@@ -26755,9 +26815,9 @@ var specialExpressionsReference = {
         ],
         description: 'Executes `try-body`. If that throws, the `catch-body` gets executed. See examples for details.',
         examples: [
-            "\ntry {\n  2 / 4\n} catch {\n  \"Oops!\"\n}",
-            "\ntry {\n  foo()\n} catch(error) {\n  \"Error: \" ++ error.message\n}",
-            "\ntry {\n  foo()\n} catch {\n  42\n}",
+            "\ntry\n  2 / 4\ncatch\n  \"Oops!\"\nend",
+            "\ntry\n  foo()\ncatch(error)\n  \"Error: \" ++ error.message\nend",
+            "\ntry\n  foo()\ncatch\n  42\nend",
         ],
     },
     'throw': {
@@ -26776,8 +26836,8 @@ var specialExpressionsReference = {
         ],
         description: 'Throws `UserDefinedError` with message set to $expr evaluated. $expr must evaluate to a string.',
         examples: [
-            'try { throw("You shall not pass!") } catch(error) { "Error: " ++ error.message }',
-            'try { throw(slice("You shall not pass!", 0, 3)) } catch(error) { "Error: " ++ error.message }',
+            'try throw("You shall not pass!") catch(error) "Error: " ++ error.message end',
+            'try throw(slice("You shall not pass!", 0, 3)) catch(error) "Error: " ++ error.message end',
         ],
     },
     'if': {
@@ -30923,7 +30983,7 @@ var datatype = {
         title: 'never',
         category: 'Datatype',
         description: 'A value that can never be created',
-        examples: ["\n// throw(\"error\") will never return a value\ntry { throw(\"error\") } catch { \"never\" }",
+        examples: ["\n// throw(\"error\") will never return a value\ntry throw(\"error\") catch \"never\" end",
         ],
     },
 };