@mojir/lits 2.1.34 → 2.1.36

package/dist/testFramework.js

@@ -13915,9 +13915,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;
@@ -14119,6 +14116,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());
                 }
@@ -14249,9 +14252,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()];
@@ -14268,7 +14279,7 @@ var Parser = /** @class */ (function () {
                 ],
             ], firstToken[2]);
         }
-        catch (_a) {
+        catch (_b) {
             return null;
         }
     };
@@ -14318,9 +14329,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()];
@@ -14518,9 +14537,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 [
@@ -14598,8 +14614,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())) {
@@ -14608,7 +14623,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) {
@@ -15713,7 +15729,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!=': {
@@ -15731,10 +15747,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,
     },
@@ -15753,9 +15769,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,
     },
@@ -15774,9 +15790,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,
     },
@@ -15795,9 +15811,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,
     },
@@ -15816,9 +15832,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,
     },
@@ -15837,9 +15853,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,
     },
@@ -15863,9 +15879,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,
     },
@@ -15889,9 +15905,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,
     },
@@ -15915,16 +15931,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,
     },
@@ -15948,15 +15964,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,
     },
@@ -15980,15 +15996,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,
     },
@@ -16013,7 +16029,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,
     },
@@ -16040,8 +16056,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,
     },
@@ -16065,8 +16081,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,
     },
@@ -26633,6 +26649,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',
@@ -26757,9 +26817,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': {
@@ -26778,8 +26838,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': {
@@ -30925,7 +30985,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",
         ],
     },
 };