From e55397da8aeae90b05d471eac822bd42a3bb75a5 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 29 Oct 2025 08:49:18 +0000
Subject: [PATCH 1/3] Initial plan


From fa9473e4bf5ccac01c5548f965c589173a972fc2 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 29 Oct 2025 09:05:15 +0000
Subject: [PATCH 2/3] Add comprehensive tests for file-group.rkt to improve
 coverage

Co-authored-by: jackfirth <8175575+jackfirth@users.noreply.github.com>
---
 private/file-group.rkt | 159 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 159 insertions(+)

diff --git a/private/file-group.rkt b/private/file-group.rkt
index f1d9a9c3..ec72393b 100644
--- a/private/file-group.rkt
+++ b/private/file-group.rkt
@@ -45,6 +45,9 @@
 
 (module+ test
   (require (submod "..")
+           racket/file
+           racket/list
+           racket/system
            rackunit))
 
 
@@ -136,6 +139,162 @@
 
 
 (module+ test
+  
+  (test-case "file-portion"
+    (test-case "constructor normalizes paths"
+      (define portion (file-portion "/tmp/test.rkt" (range-set (closed-open-range 1 10 #:comparator natural<=>))))
+      (check-true (file-portion? portion))
+      (check-equal? (file-portion-path portion) (simple-form-path "/tmp/test.rkt"))
+      (check-equal? (file-portion-lines portion) (range-set (closed-open-range 1 10 #:comparator natural<=>)))))
+  
+  (test-case "single-file-group"
+    (test-case "constructor and predicates"
+      (define group (single-file-group "/tmp/test.rkt" (range-set (closed-open-range 1 10 #:comparator natural<=>))))
+      (check-true (single-file-group? group))
+      (check-true (file-group? group))
+      (check-equal? (single-file-group-path group) (simple-form-path "/tmp/test.rkt"))
+      (check-equal? (single-file-group-ranges group) (range-set (closed-open-range 1 10 #:comparator natural<=>))))
+    
+    (test-case "file-group-resolve returns single file"
+      (define test-dir (make-temporary-file "resyntax-test-~a" 'directory))
+      (define test-file (build-path test-dir "test.rkt"))
+      (call-with-output-file test-file
+        (λ (out) (displayln "#lang racket/base" out)))
+      (define group (single-file-group test-file (range-set (closed-open-range 1 5 #:comparator natural<=>))))
+      (define portions (file-group-resolve group))
+      (check-equal? (length portions) 1)
+      (check-equal? (file-portion-path (first portions)) (simple-form-path test-file))
+      (check-equal? (file-portion-lines (first portions)) (range-set (closed-open-range 1 5 #:comparator natural<=>)))
+      (delete-directory/files test-dir)))
+  
+  (test-case "directory-file-group"
+    (test-case "constructor and predicates"
+      (define group (directory-file-group "/tmp"))
+      (check-true (directory-file-group? group))
+      (check-true (file-group? group))
+      (check-equal? (directory-file-group-path group) (simple-form-path "/tmp")))
+    
+    (test-case "file-group-resolve returns only .rkt files"
+      (define test-dir (make-temporary-file "resyntax-test-~a" 'directory))
+      (define rkt-file1 (build-path test-dir "test1.rkt"))
+      (define rkt-file2 (build-path test-dir "test2.rkt"))
+      (define txt-file (build-path test-dir "test.txt"))
+      (call-with-output-file rkt-file1
+        (λ (out) (displayln "#lang racket/base" out)))
+      (call-with-output-file rkt-file2
+        (λ (out) (displayln "#lang racket" out)))
+      (call-with-output-file txt-file
+        (λ (out) (displayln "not racket" out)))
+      (define group (directory-file-group test-dir))
+      (define portions (file-group-resolve group))
+      (check-equal? (length portions) 2)
+      (check-true (andmap (λ (p) (path-has-extension? (file-portion-path p) #".rkt")) portions))
+      (delete-directory/files test-dir)))
+  
+  (test-case "package-file-group"
+    (test-case "constructor and predicates"
+      (define group (package-file-group "rackunit"))
+      (check-true (package-file-group? group))
+      (check-true (file-group? group))
+      (check-equal? (package-file-group-package-name group) "rackunit"))
+    
+    (test-case "file-group-resolve returns files from installed package"
+      (define group (package-file-group "rackunit"))
+      (define portions (file-group-resolve group))
+      (check-true (list? portions))
+      (check-true (andmap file-portion? portions))
+      (check-true (andmap (λ (p) (path-has-extension? (file-portion-path p) #".rkt")) portions))
+      (check-true (> (length portions) 0)))
+    
+    (test-case "file-group-resolve raises error for non-existent package"
+      (define group (package-file-group "this-package-does-not-exist-xyz"))
+      (check-exn exn:fail:user?
+                 (λ () (file-group-resolve group)))))
+  
+  (test-case "git-repository-file-group"
+    (test-case "constructor and predicates"
+      (define group (git-repository-file-group "/tmp" "HEAD"))
+      (check-true (git-repository-file-group? group))
+      (check-true (file-group? group))
+      (check-equal? (git-repository-file-group-repository-path group) (simple-form-path "/tmp"))
+      (check-equal? (git-repository-file-group-ref group) "HEAD"))
+    
+    (test-case "file-group-resolve with git repository"
+      (define test-dir (make-temporary-file "resyntax-test-git-~a" 'directory))
+      (parameterize ([current-directory test-dir])
+        (system "git init -q")
+        (system "git config user.email 'test@example.com'")
+        (system "git config user.name 'Test User'")
+        (define test-file (build-path test-dir "test.rkt"))
+        (call-with-output-file test-file
+          (λ (out) (displayln "#lang racket/base\n(void)" out)))
+        (system "git add test.rkt")
+        (system "git commit -q -m 'Initial commit'")
+        (call-with-output-file test-file #:exists 'append
+          (λ (out) (displayln "(define x 1)" out)))
+        (define group (git-repository-file-group test-dir "HEAD"))
+        (define portions (file-group-resolve group))
+        (check-true (list? portions))
+        (check-true (> (length portions) 0))
+        (check-true (andmap file-portion? portions)))
+      (delete-directory/files test-dir)))
+  
+  (test-case "file-groups-resolve"
+    (test-case "resolves multiple groups into hash"
+      (define test-dir (make-temporary-file "resyntax-test-~a" 'directory))
+      (define test-file1 (build-path test-dir "test1.rkt"))
+      (define test-file2 (build-path test-dir "test2.rkt"))
+      (call-with-output-file test-file1
+        (λ (out) (displayln "#lang racket/base" out)))
+      (call-with-output-file test-file2
+        (λ (out) (displayln "#lang racket" out)))
+      (define group1 (single-file-group test-file1 (range-set (closed-open-range 1 5 #:comparator natural<=>))))
+      (define group2 (single-file-group test-file2 (range-set (closed-open-range 3 8 #:comparator natural<=>))))
+      (define result (file-groups-resolve (list group1 group2)))
+      (check-true (hash? result))
+      (check-equal? (hash-count result) 2)
+      (check-true (hash-has-key? result (file-source test-file1)))
+      (check-true (hash-has-key? result (file-source test-file2)))
+      (delete-directory/files test-dir))
+    
+    (test-case "combines ranges for same file"
+      (define test-dir (make-temporary-file "resyntax-test-~a" 'directory))
+      (define test-file (build-path test-dir "test.rkt"))
+      (call-with-output-file test-file
+        (λ (out) (displayln "#lang racket/base" out)))
+      (define group1 (single-file-group test-file (range-set (closed-open-range 1 3 #:comparator natural<=>))))
+      (define group2 (single-file-group test-file (range-set (closed-open-range 5 7 #:comparator natural<=>))))
+      (define result (file-groups-resolve (list group1 group2)))
+      (check-equal? (hash-count result) 1)
+      (define combined-ranges (hash-ref result (file-source test-file)))
+      (check-true (range-set-contains? combined-ranges 1))
+      (check-true (range-set-contains? combined-ranges 2))
+      (check-true (range-set-contains? combined-ranges 5))
+      (check-true (range-set-contains? combined-ranges 6))
+      (delete-directory/files test-dir)))
+  
+  (test-case "rkt-file?"
+    (test-case "returns true for .rkt files"
+      (define portion (file-portion "/tmp/test.rkt" (range-set #:comparator natural<=>)))
+      (check-true (rkt-file? portion)))
+    
+    (test-case "returns false for non-.rkt files"
+      (define portion1 (file-portion "/tmp/test.txt" (range-set #:comparator natural<=>)))
+      (define portion2 (file-portion "/tmp/test.scm" (range-set #:comparator natural<=>)))
+      (check-false (rkt-file? portion1))
+      (check-false (rkt-file? portion2))))
+  
+  (test-case "range-bound-map"
+    (test-case "maps bounded endpoints"
+      (define bound (range-bound 5 inclusive))
+      (define result (range-bound-map bound (λ (x) (* x 2))))
+      (check-equal? (range-bound-endpoint result) 10)
+      (check-equal? (range-bound-type result) inclusive))
+    
+    (test-case "preserves unbounded"
+      (define result (range-bound-map unbounded (λ (x) (* x 2))))
+      (check-equal? result unbounded)))
+  
   (test-case "expand-modified-line-set"
     (define ranges (range-set (closed-open-range 4 6) (greater-than-range 15)))
     (define expected (range-set (closed-open-range 1 9) (greater-than-range 12))) 

From bc1c0e03a68503ee7bc6165dad36b4fcdc2be5c9 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 29 Oct 2025 09:10:36 +0000
Subject: [PATCH 3/3] Add error checking to git test system calls

Co-authored-by: jackfirth <8175575+jackfirth@users.noreply.github.com>
---
 private/file-group.rkt | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/private/file-group.rkt b/private/file-group.rkt
index ec72393b..5c4dc944 100644
--- a/private/file-group.rkt
+++ b/private/file-group.rkt
@@ -222,14 +222,19 @@
     (test-case "file-group-resolve with git repository"
       (define test-dir (make-temporary-file "resyntax-test-git-~a" 'directory))
       (parameterize ([current-directory test-dir])
-        (system "git init -q")
-        (system "git config user.email 'test@example.com'")
-        (system "git config user.name 'Test User'")
+        (unless (system "git init -q")
+          (fail "git init failed"))
+        (unless (system "git config user.email 'test@example.com'")
+          (fail "git config email failed"))
+        (unless (system "git config user.name 'Test User'")
+          (fail "git config name failed"))
         (define test-file (build-path test-dir "test.rkt"))
         (call-with-output-file test-file
           (λ (out) (displayln "#lang racket/base\n(void)" out)))
-        (system "git add test.rkt")
-        (system "git commit -q -m 'Initial commit'")
+        (unless (system "git add test.rkt")
+          (fail "git add failed"))
+        (unless (system "git commit -q -m 'Initial commit'")
+          (fail "git commit failed"))
         (call-with-output-file test-file #:exists 'append
           (λ (out) (displayln "(define x 1)" out)))
         (define group (git-repository-file-group test-dir "HEAD"))