fix: address review feedback for new language extractors (#722)

- Remove unsupported -> right-assignment operator from R extractor
- Fix Clojure doc comment to reference correct grammar (sogaiu, not oakmac)
- Strengthen trivially-true test assertions (>= 0 -> >= 1) in Erlang,
  F#, and Gleam parser tests

Author: carlos-alm

src/extractors/clojure.ts

@@ -4,7 +4,7 @@ import { nodeEndLine } from './helpers.js';
 /**
  * Extract symbols from Clojure files.
  *
- * Clojure tree-sitter grammar (oakmac/tree-sitter-clojure) notes:
+ * Clojure tree-sitter grammar (sogaiu/tree-sitter-clojure) notes:
  * - The grammar is minimal: everything is a list/vector/map/symbol
  * - We detect definitions by the first symbol in a list: defn, def, defprotocol, etc.
  * - Namespace: (ns name ...)

src/extractors/r.ts

@@ -50,7 +50,7 @@ function handleBinaryOp(node: TreeSitterNode, ctx: ExtractorOutput): void {
   const rhs = node.child(2);
 
   if (!lhs || !op || !rhs) return;
-  if (op.text !== '<-' && op.text !== '=' && op.text !== '<<-' && op.text !== '->') return;
+  if (op.text !== '<-' && op.text !== '=' && op.text !== '<<-') return;
   if (lhs.type !== 'identifier') return;
 
   if (rhs.type === 'function_definition') {

tests/parsers/erlang.test.ts

@@ -35,12 +35,12 @@ describe('Erlang parser', () => {
 
   it('extracts import attributes', () => {
     const symbols = parseErlang(`-import(lists, [map/2, filter/2]).`);
-    expect(symbols.imports.length).toBeGreaterThanOrEqual(0);
+    expect(symbols.imports.length).toBeGreaterThanOrEqual(1);
   });
 
   it('extracts function calls', () => {
     const symbols = parseErlang(`start() ->
     io:format("Hello~n").`);
-    expect(symbols.calls.length).toBeGreaterThanOrEqual(0);
+    expect(symbols.calls.length).toBeGreaterThanOrEqual(1);
   });
 });

tests/parsers/fsharp.test.ts

@@ -47,6 +47,6 @@ open System.IO`);
 
   it('extracts function calls', () => {
     const symbols = parseFSharp(`let result = List.map (fun x -> x + 1) [1; 2; 3]`);
-    expect(symbols.calls.length).toBeGreaterThanOrEqual(0);
+    expect(symbols.calls.length).toBeGreaterThanOrEqual(1);
   });
 });

tests/parsers/gleam.test.ts

@@ -43,6 +43,6 @@ import gleam/string`);
     const symbols = parseGleam(`pub fn main() {
   io.println("Hello")
 }`);
-    expect(symbols.calls.length).toBeGreaterThanOrEqual(0);
+    expect(symbols.calls.length).toBeGreaterThanOrEqual(1);
   });
 });