Add skipped hanging beckwardlistoftype test

Exposes #1585 pretty spot on
BetterThanTomorrow · Mar 9, 2022 · 34cabf6 · 34cabf6
1 parent 058be6a
commit 34cabf6
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/src/extension-test/unit/cursor-doc/token-cursor-test.ts b/src/extension-test/unit/cursor-doc/token-cursor-test.ts
@@ -492,6 +492,25 @@ describe('Token Cursor', () => {
             expect(cursor.offsetStart).toBe(b.selectionLeft);
             expect(result).toBe(false);
         });
+        it('Moves backward in unbalanced list when outer list is balanced', () => {
+            // https://github.com/BetterThanTomorrow/calva/issues/1585
+            const a = docFromTextNotation('(let [a|)');
+            const b = docFromTextNotation('(let [|a)');
+            const cursor: LispTokenCursor = a.getTokenCursor(a.selectionLeft);
+            const result = cursor.backwardListOfType('[');
+            expect(cursor.offsetStart).toBe(b.selectionLeft);
+            expect(result).toBe(true);
+        });
+        it.skip('Moves backward in balanced list when inner list is unbalanced', () => {
+            // This never conmpletes in Calva v2.0.252
+            // https://github.com/BetterThanTomorrow/calva/issues/1585
+            const a = docFromTextNotation('(let [a|)');
+            const b = docFromTextNotation('(let [|a)');
+            const cursor: LispTokenCursor = a.getTokenCursor(a.selectionLeft);
+            const result = cursor.backwardListOfType('(');
+            expect(cursor.offsetStart).toBe(b.selectionLeft);
+            expect(result).toBe(true);
+        });
         it('Does not move when list type is not found', () => {
             const a = docFromTextNotation('([|])');
             const b = docFromTextNotation('([|])');