Add load tests for expansion analyzers#755

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Copilot wants to merge 3 commits into
base:master
Choose a base branch
from
Open

Add load tests for expansion analyzers #755

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
96cd573
Initial plan
Copilot Nov 13, 2025
06f12ac
Add load tests for expansion analyzers
Copilot Nov 13, 2025
1ab6849
Fix analyzer load tests per review feedback
Copilot Nov 14, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
118 changes: 118 additions & 0 deletions test/analyzer-load-test.rkt
View file
Open in desktop

@jackfirthjackfirthNov 14, 2025

Copy link
Copy Markdown
Owner

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Put all of this inside of a (module+ test ...) submodule.

CopilotAINov 14, 2025

Copy link
Copy Markdown
ContributorAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Done in 1ab6849. All code is now inside (module+ test ...).

Original file line numberDiff line numberDiff line change
@@ -0,0 +1,118 @@
#lang racket/base


(module+ test
(require racket/string
rackunit
resyntax/default-recommendations/analyzers/identifier-usage
resyntax/default-recommendations/analyzers/variable-mutability
resyntax/default-recommendations/analyzers/ignored-result-values
resyntax/default-recommendations/analyzers/function-expression-analyzer
resyntax/private/analyzer
resyntax/private/source)

;; Load tests for expansion analyzers to ensure they can handle large files
;; within reasonable timeouts. These tests are designed to catch severe
;; performance regressions where analyzers would take minutes or hang on
;; moderately large files.

(define timeout-ms 30000) ; 30 second timeout for load tests

;; Generate a large test file with many definitions and function calls.
;; This creates a file with approximately 300+ lines of code with various
;; constructs that analyzers need to process. The file is large enough to
;; exercise analyzer performance but small enough to complete in reasonable time.
(define (generate-large-test-program)
(string-join
(append
(list "#lang racket/base"
""
"(require racket/list racket/string)"
"")
;; Generate many function definitions
(for/list ([i (in-range 25)])
(format "(define (func~a x y)
(let ([a (+ x y)]
[b (* x y)])
(if (> a b)
(+ a b)
(* a b))))" i))
(list "")
;; Generate many variable definitions
(for/list ([i (in-range 30)])
(format "(define var~a ~a)" i i))
(list "")
;; Generate many mutable variables with assignments
(for/list ([i (in-range 20)])
(format "(define mut~a 0)
(set! mut~a ~a)" i i i))
(list "")
;; Generate function calls with various patterns
(for/list ([i (in-range 25)])
(format "(void (func~a var~a (+ var~a ~a)))"
(modulo i 25)
(modulo i 30)
(modulo (+ i 1) 30)
i))
(list "")
;; Generate nested expressions with ignored results
(for/list ([i (in-range 15)])
(format "(begin
(+ ~a ~a)
(void ~a))" i (+ i 1) i)))
"\n"))

(define large-test-source (string-source (generate-large-test-program)))

;; Expand the test source once and reuse for all tests
(define expanded-syntax
(parameterize ([current-namespace (make-base-namespace)])
(source-expand large-test-source)))

(test-case "identifier-usage-analyzer load test"
;; This test ensures the identifier-usage-analyzer can analyze a large file
;; within the timeout period.
(define-values (result cpu-time real-time gc-time)
(time-apply expansion-analyze (list identifier-usage-analyzer expanded-syntax)))

;; Verify it completed within the timeout
(check-true (< real-time timeout-ms)
(format "identifier-usage-analyzer took ~a ms, expected < ~a ms"
real-time
timeout-ms)))

(test-case "variable-mutability-analyzer load test"
;; This test ensures the variable-mutability-analyzer can analyze a large file
;; within the timeout period.
(define-values (result cpu-time real-time gc-time)
(time-apply expansion-analyze (list variable-mutability-analyzer expanded-syntax)))

;; Verify it completed within the timeout
(check-true (< real-time timeout-ms)
(format "variable-mutability-analyzer took ~a ms, expected < ~a ms"
real-time
timeout-ms)))

(test-case "ignored-result-values-analyzer load test"
;; This test ensures the ignored-result-values-analyzer can analyze a large file
;; within the timeout period.
(define-values (result cpu-time real-time gc-time)
(time-apply expansion-analyze (list ignored-result-values-analyzer expanded-syntax)))

;; Verify it completed within the timeout
(check-true (< real-time timeout-ms)
(format "ignored-result-values-analyzer took ~a ms, expected < ~a ms"
real-time
timeout-ms)))

(test-case "function-expression-analyzer load test"
;; This test ensures the function-expression-analyzer can analyze a large file
;; within the timeout period.
(define-values (result cpu-time real-time gc-time)
(time-apply expansion-analyze (list function-expression-analyzer expanded-syntax)))

;; Verify it completed within the timeout
(check-true (< real-time timeout-ms)
(format "function-expression-analyzer took ~a ms, expected < ~a ms"
real-time
timeout-ms))))
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Add copy buttons to all 
 blocks\n(function() {\n function addCopyButtons() {\n document.querySelectorAll('pre code').forEach(function(codeBlock) {\n if (codeBlock.parentElement.hasAttribute('data-copy-added')) return;\n codeBlock.parentElement.setAttribute('data-copy-added', 'true');\n \n var btn = document.createElement('button');\n btn.textContent = 'Copy';\n btn.style.cssText = 'position:absolute;top:4px;right:4px;padding:2px 8px;font-size:11px;background:#4ecdc4;border:none;border-radius:4px;color:#1a1a2e;cursor:pointer;opacity:0.7;transition:opacity 0.2s;';\n btn.onmouseover = function() { this.style.opacity = '1'; };\n btn.onmouseout = function() { this.style.opacity = '0.7'; };\n btn.onclick = function() {\n navigator.clipboard.writeText(codeBlock.textContent).then(function() {\n btn.textContent = 'Copied!';\n setTimeout(function() { btn.textContent = 'Copy'; }, 1500);\n });\n };\n codeBlock.parentElement.style.position = 'relative';\n codeBlock.parentElement.appendChild(btn);\n });\n }\n \n addCopyButtons();\n \n // Re-run on dynamic content\n var observer = new MutationObserver(addCopyButtons);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Add Copy Buttons to Code Blocks");
}
} catch(__e) { console.warn('[Userscript:Add Copy Buttons to Code Blocks]', __e); }
})();
(function(){
try {
var __m = "github.com";
var __re = new RegExp('^' + "github\\.com" + '

Skip to content
Add load tests for expansion analyzers#755

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

Copilot
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Add load tests for expansion analyzers
#755
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
96cd573

Initial plan


Copilot Nov 13, 2025
06f12ac

Add load tests for expansion analyzers


Copilot Nov 13, 2025
1ab6849

Fix analyzer load tests per review feedback


Copilot Nov 14, 2025

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


118 changes: 118 additions & 0 deletions
test/analyzer-load-test.rkt

View file


Open in desktop

@jackfirthjackfirthNov 14, 2025

Copy link


Copy Markdown

Owner
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Put all of this inside of a (module+ test ...) submodule.
CopilotAINov 14, 2025

Copy link


Copy Markdown

ContributorAuthor
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Done in 1ab6849. All code is now inside (module+ test ...).
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,118 @@
#lang racket/base


(module+ test
 (require racket/string
 rackunit
 resyntax/default-recommendations/analyzers/identifier-usage
 resyntax/default-recommendations/analyzers/variable-mutability
 resyntax/default-recommendations/analyzers/ignored-result-values
 resyntax/default-recommendations/analyzers/function-expression-analyzer
 resyntax/private/analyzer
 resyntax/private/source)

 ;; Load tests for expansion analyzers to ensure they can handle large files
 ;; within reasonable timeouts. These tests are designed to catch severe
 ;; performance regressions where analyzers would take minutes or hang on
 ;; moderately large files.

 (define timeout-ms 30000) ; 30 second timeout for load tests

 ;; Generate a large test file with many definitions and function calls.
 ;; This creates a file with approximately 300+ lines of code with various
 ;; constructs that analyzers need to process. The file is large enough to
 ;; exercise analyzer performance but small enough to complete in reasonable time.
 (define (generate-large-test-program)
 (string-join
 (append
 (list "#lang racket/base"
 ""
 "(require racket/list racket/string)"
 "")
 ;; Generate many function definitions
 (for/list ([i (in-range 25)])
 (format "(define (func~a x y)
 (let ([a (+ x y)]
 [b (* x y)])
 (if (> a b)
 (+ a b)
 (* a b))))" i))
 (list "")
 ;; Generate many variable definitions
 (for/list ([i (in-range 30)])
 (format "(define var~a ~a)" i i))
 (list "")
 ;; Generate many mutable variables with assignments
 (for/list ([i (in-range 20)])
 (format "(define mut~a 0)
(set! mut~a ~a)" i i i))
 (list "")
 ;; Generate function calls with various patterns
 (for/list ([i (in-range 25)])
 (format "(void (func~a var~a (+ var~a ~a)))"
 (modulo i 25)
 (modulo i 30)
 (modulo (+ i 1) 30)
 i))
 (list "")
 ;; Generate nested expressions with ignored results
 (for/list ([i (in-range 15)])
 (format "(begin
 (+ ~a ~a)
 (void ~a))" i (+ i 1) i)))
 "\n"))

 (define large-test-source (string-source (generate-large-test-program)))

 ;; Expand the test source once and reuse for all tests
 (define expanded-syntax
 (parameterize ([current-namespace (make-base-namespace)])
 (source-expand large-test-source)))

 (test-case "identifier-usage-analyzer load test"
 ;; This test ensures the identifier-usage-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list identifier-usage-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "identifier-usage-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "variable-mutability-analyzer load test"
 ;; This test ensures the variable-mutability-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list variable-mutability-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "variable-mutability-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "ignored-result-values-analyzer load test"
 ;; This test ensures the ignored-result-values-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list ignored-result-values-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "ignored-result-values-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "function-expression-analyzer load test"
 ;; This test ensures the function-expression-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list function-expression-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "function-expression-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms))))

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Force GitHub README to respect dark mode\n(function() {\n var style = document.createElement('style');\n style.textContent = '\n .markdown-body {\n color-scheme: dark light;\n }\n .markdown-body pre { background: #161b22 !important; }\n .markdown-body code { background: rgba(110, 118, 129, 0.4) !important; }\n .markdown-body table th, .markdown-body table td { border-color: #30363d !important; }\n .markdown-body img { background: #0d1117; }\n .markdown-body blockquote { border-left-color: #8b949e; }\n .markdown-body hr { border-color: #30363d; }\n ';\n document.head.appendChild(style);\n})();", "GitHub Dark Mode README Fix");
}
} catch(__e) { console.warn('[Userscript:GitHub Dark Mode README Fix]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Add load tests for expansion analyzers#755

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

Copilot
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Add load tests for expansion analyzers
#755
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
96cd573

Initial plan


Copilot Nov 13, 2025
06f12ac

Add load tests for expansion analyzers


Copilot Nov 13, 2025
1ab6849

Fix analyzer load tests per review feedback


Copilot Nov 14, 2025

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


118 changes: 118 additions & 0 deletions
test/analyzer-load-test.rkt

View file


Open in desktop

@jackfirthjackfirthNov 14, 2025

Copy link


Copy Markdown

Owner
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Put all of this inside of a (module+ test ...) submodule.
CopilotAINov 14, 2025

Copy link


Copy Markdown

ContributorAuthor
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Done in 1ab6849. All code is now inside (module+ test ...).
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,118 @@
#lang racket/base


(module+ test
 (require racket/string
 rackunit
 resyntax/default-recommendations/analyzers/identifier-usage
 resyntax/default-recommendations/analyzers/variable-mutability
 resyntax/default-recommendations/analyzers/ignored-result-values
 resyntax/default-recommendations/analyzers/function-expression-analyzer
 resyntax/private/analyzer
 resyntax/private/source)

 ;; Load tests for expansion analyzers to ensure they can handle large files
 ;; within reasonable timeouts. These tests are designed to catch severe
 ;; performance regressions where analyzers would take minutes or hang on
 ;; moderately large files.

 (define timeout-ms 30000) ; 30 second timeout for load tests

 ;; Generate a large test file with many definitions and function calls.
 ;; This creates a file with approximately 300+ lines of code with various
 ;; constructs that analyzers need to process. The file is large enough to
 ;; exercise analyzer performance but small enough to complete in reasonable time.
 (define (generate-large-test-program)
 (string-join
 (append
 (list "#lang racket/base"
 ""
 "(require racket/list racket/string)"
 "")
 ;; Generate many function definitions
 (for/list ([i (in-range 25)])
 (format "(define (func~a x y)
 (let ([a (+ x y)]
 [b (* x y)])
 (if (> a b)
 (+ a b)
 (* a b))))" i))
 (list "")
 ;; Generate many variable definitions
 (for/list ([i (in-range 30)])
 (format "(define var~a ~a)" i i))
 (list "")
 ;; Generate many mutable variables with assignments
 (for/list ([i (in-range 20)])
 (format "(define mut~a 0)
(set! mut~a ~a)" i i i))
 (list "")
 ;; Generate function calls with various patterns
 (for/list ([i (in-range 25)])
 (format "(void (func~a var~a (+ var~a ~a)))"
 (modulo i 25)
 (modulo i 30)
 (modulo (+ i 1) 30)
 i))
 (list "")
 ;; Generate nested expressions with ignored results
 (for/list ([i (in-range 15)])
 (format "(begin
 (+ ~a ~a)
 (void ~a))" i (+ i 1) i)))
 "\n"))

 (define large-test-source (string-source (generate-large-test-program)))

 ;; Expand the test source once and reuse for all tests
 (define expanded-syntax
 (parameterize ([current-namespace (make-base-namespace)])
 (source-expand large-test-source)))

 (test-case "identifier-usage-analyzer load test"
 ;; This test ensures the identifier-usage-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list identifier-usage-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "identifier-usage-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "variable-mutability-analyzer load test"
 ;; This test ensures the variable-mutability-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list variable-mutability-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "variable-mutability-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "ignored-result-values-analyzer load test"
 ;; This test ensures the ignored-result-values-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list ignored-result-values-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "ignored-result-values-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "function-expression-analyzer load test"
 ;; This test ensures the function-expression-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list function-expression-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "function-expression-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms))))

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Highlight search terms from Google/DuckDuckGo/Bing referrer\n(function() {\n var ref = document.referrer;\n var terms = [];\n \n if (ref.includes('google.com') || ref.includes('duckduckgo.com') || ref.includes('bing.com')) {\n var url = new URL(ref);\n var q = url.searchParams.get('q') || url.searchParams.get('p');\n if (q) {\n terms = q.split(/\\s+/).filter(function(t) { return t.length > 2; });\n }\n }\n \n if (terms.length === 0) return;\n \n var style = document.createElement('style');\n style.textContent = '.userscript-highlight { background: #fbbf24; color: #1a1a2e; padding: 1px 3px; border-radius: 2px; }';\n document.head.appendChild(style);\n \n function highlight(node) {\n if (node.nodeType === 3) { // text node\n var text = node.textContent;\n var found = false;\n terms.forEach(function(term) {\n var regex = new RegExp('(' + term.replace(/[.*+?^${}()|[\\]\\\\]/g, '\\\\') + ')', 'gi');\n if (regex.test(text)) {\n found = true;\n var frag = document.createDocumentFragment();\n var parts = text.split(regex);\n parts.forEach(function(part, i) {\n if (i % 2 === 0) {\n frag.appendChild(document.createTextNode(part));\n } else {\n var span = document.createElement('span');\n span.className = 'userscript-highlight';\n span.textContent = part;\n frag.appendChild(span);\n }\n });\n node.parentNode.replaceChild(frag, node);\n }\n });\n } else if (node.nodeType === 1 && node.childNodes) { // element\n var skipTags = ['SCRIPT', 'STYLE', 'NOSCRIPT', 'TEXTAREA', 'INPUT', 'SELECT'];\n if (!skipTags.includes(node.tagName)) {\n Array.from(node.childNodes).forEach(highlight);\n }\n }\n }\n \n highlight(document.body);\n \n // Re-highlight on dynamic content\n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1 || node.nodeType === 3) highlight(node);\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Highlight Search Terms");
}
} catch(__e) { console.warn('[Userscript:Highlight Search Terms]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Add load tests for expansion analyzers#755

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

Copilot
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Add load tests for expansion analyzers
#755
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
96cd573

Initial plan


Copilot Nov 13, 2025
06f12ac

Add load tests for expansion analyzers


Copilot Nov 13, 2025
1ab6849

Fix analyzer load tests per review feedback


Copilot Nov 14, 2025

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


118 changes: 118 additions & 0 deletions
test/analyzer-load-test.rkt

View file


Open in desktop

@jackfirthjackfirthNov 14, 2025

Copy link


Copy Markdown

Owner
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Put all of this inside of a (module+ test ...) submodule.
CopilotAINov 14, 2025

Copy link


Copy Markdown

ContributorAuthor
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Done in 1ab6849. All code is now inside (module+ test ...).
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,118 @@
#lang racket/base


(module+ test
 (require racket/string
 rackunit
 resyntax/default-recommendations/analyzers/identifier-usage
 resyntax/default-recommendations/analyzers/variable-mutability
 resyntax/default-recommendations/analyzers/ignored-result-values
 resyntax/default-recommendations/analyzers/function-expression-analyzer
 resyntax/private/analyzer
 resyntax/private/source)

 ;; Load tests for expansion analyzers to ensure they can handle large files
 ;; within reasonable timeouts. These tests are designed to catch severe
 ;; performance regressions where analyzers would take minutes or hang on
 ;; moderately large files.

 (define timeout-ms 30000) ; 30 second timeout for load tests

 ;; Generate a large test file with many definitions and function calls.
 ;; This creates a file with approximately 300+ lines of code with various
 ;; constructs that analyzers need to process. The file is large enough to
 ;; exercise analyzer performance but small enough to complete in reasonable time.
 (define (generate-large-test-program)
 (string-join
 (append
 (list "#lang racket/base"
 ""
 "(require racket/list racket/string)"
 "")
 ;; Generate many function definitions
 (for/list ([i (in-range 25)])
 (format "(define (func~a x y)
 (let ([a (+ x y)]
 [b (* x y)])
 (if (> a b)
 (+ a b)
 (* a b))))" i))
 (list "")
 ;; Generate many variable definitions
 (for/list ([i (in-range 30)])
 (format "(define var~a ~a)" i i))
 (list "")
 ;; Generate many mutable variables with assignments
 (for/list ([i (in-range 20)])
 (format "(define mut~a 0)
(set! mut~a ~a)" i i i))
 (list "")
 ;; Generate function calls with various patterns
 (for/list ([i (in-range 25)])
 (format "(void (func~a var~a (+ var~a ~a)))"
 (modulo i 25)
 (modulo i 30)
 (modulo (+ i 1) 30)
 i))
 (list "")
 ;; Generate nested expressions with ignored results
 (for/list ([i (in-range 15)])
 (format "(begin
 (+ ~a ~a)
 (void ~a))" i (+ i 1) i)))
 "\n"))

 (define large-test-source (string-source (generate-large-test-program)))

 ;; Expand the test source once and reuse for all tests
 (define expanded-syntax
 (parameterize ([current-namespace (make-base-namespace)])
 (source-expand large-test-source)))

 (test-case "identifier-usage-analyzer load test"
 ;; This test ensures the identifier-usage-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list identifier-usage-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "identifier-usage-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "variable-mutability-analyzer load test"
 ;; This test ensures the variable-mutability-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list variable-mutability-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "variable-mutability-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "ignored-result-values-analyzer load test"
 ;; This test ensures the ignored-result-values-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list ignored-result-values-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "ignored-result-values-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "function-expression-analyzer load test"
 ;; This test ensures the function-expression-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list function-expression-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "function-expression-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms))))

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Strip utm_, fbclid, gclid, etc. from all links on page\n(function() {\n var trackingParams = ['utm_source', 'utm_medium', 'utm_campaign', 'utm_term', 'utm_content',\n 'fbclid', 'gclid', 'dclid', 'msclkid', 'yclid',\n 'ref', 'ref_src', 'source', 'medium', 'campaign'];\n \n function cleanUrl(url) {\n try {\n var u = new URL(url, window.location.origin);\n var changed = false;\n trackingParams.forEach(function(p) {\n if (u.searchParams.has(p)) {\n u.searchParams.delete(p);\n changed = true;\n }\n });\n return changed ? u.toString() : url;\n } catch (e) {\n return url;\n }\n }\n \n function cleanLinks() {\n document.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n \n cleanLinks();\n \n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1) {\n if (node.tagName === 'A') cleanLinks();\n node.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Remove Tracking Parameters from Links");
}
} catch(__e) { console.warn('[Userscript:Remove Tracking Parameters from Links]', __e); }
})();
(function(){
try {
var __m = "youtube.com";
var __re = new RegExp('^' + "youtube\\.com" + '

Skip to content
Add load tests for expansion analyzers#755

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

Copilot
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Add load tests for expansion analyzers
#755
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
96cd573

Initial plan


Copilot Nov 13, 2025
06f12ac

Add load tests for expansion analyzers


Copilot Nov 13, 2025
1ab6849

Fix analyzer load tests per review feedback


Copilot Nov 14, 2025

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


118 changes: 118 additions & 0 deletions
test/analyzer-load-test.rkt

View file


Open in desktop

@jackfirthjackfirthNov 14, 2025

Copy link


Copy Markdown

Owner
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Put all of this inside of a (module+ test ...) submodule.
CopilotAINov 14, 2025

Copy link


Copy Markdown

ContributorAuthor
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Done in 1ab6849. All code is now inside (module+ test ...).
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,118 @@
#lang racket/base


(module+ test
 (require racket/string
 rackunit
 resyntax/default-recommendations/analyzers/identifier-usage
 resyntax/default-recommendations/analyzers/variable-mutability
 resyntax/default-recommendations/analyzers/ignored-result-values
 resyntax/default-recommendations/analyzers/function-expression-analyzer
 resyntax/private/analyzer
 resyntax/private/source)

 ;; Load tests for expansion analyzers to ensure they can handle large files
 ;; within reasonable timeouts. These tests are designed to catch severe
 ;; performance regressions where analyzers would take minutes or hang on
 ;; moderately large files.

 (define timeout-ms 30000) ; 30 second timeout for load tests

 ;; Generate a large test file with many definitions and function calls.
 ;; This creates a file with approximately 300+ lines of code with various
 ;; constructs that analyzers need to process. The file is large enough to
 ;; exercise analyzer performance but small enough to complete in reasonable time.
 (define (generate-large-test-program)
 (string-join
 (append
 (list "#lang racket/base"
 ""
 "(require racket/list racket/string)"
 "")
 ;; Generate many function definitions
 (for/list ([i (in-range 25)])
 (format "(define (func~a x y)
 (let ([a (+ x y)]
 [b (* x y)])
 (if (> a b)
 (+ a b)
 (* a b))))" i))
 (list "")
 ;; Generate many variable definitions
 (for/list ([i (in-range 30)])
 (format "(define var~a ~a)" i i))
 (list "")
 ;; Generate many mutable variables with assignments
 (for/list ([i (in-range 20)])
 (format "(define mut~a 0)
(set! mut~a ~a)" i i i))
 (list "")
 ;; Generate function calls with various patterns
 (for/list ([i (in-range 25)])
 (format "(void (func~a var~a (+ var~a ~a)))"
 (modulo i 25)
 (modulo i 30)
 (modulo (+ i 1) 30)
 i))
 (list "")
 ;; Generate nested expressions with ignored results
 (for/list ([i (in-range 15)])
 (format "(begin
 (+ ~a ~a)
 (void ~a))" i (+ i 1) i)))
 "\n"))

 (define large-test-source (string-source (generate-large-test-program)))

 ;; Expand the test source once and reuse for all tests
 (define expanded-syntax
 (parameterize ([current-namespace (make-base-namespace)])
 (source-expand large-test-source)))

 (test-case "identifier-usage-analyzer load test"
 ;; This test ensures the identifier-usage-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list identifier-usage-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "identifier-usage-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "variable-mutability-analyzer load test"
 ;; This test ensures the variable-mutability-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list variable-mutability-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "variable-mutability-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "ignored-result-values-analyzer load test"
 ;; This test ensures the ignored-result-values-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list ignored-result-values-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "ignored-result-values-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "function-expression-analyzer load test"
 ;; This test ensures the function-expression-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list function-expression-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "function-expression-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms))))

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Auto-enable theater mode on YouTube\n(function() {\n function tryTheater() {\n var btn = document.querySelector('button[aria-label=\"Theater mode\"], ytd-player #player button[title=\"Theater mode\"]');\n if (btn && !btn.classList.contains('activated')) {\n btn.click();\n }\n }\n \n // Try immediately\n tryTheater();\n \n // Try after navigation (SPA)\n var lastUrl = location.href;\n setInterval(function() {\n if (location.href !== lastUrl) {\n lastUrl = location.href;\n setTimeout(tryTheater, 500);\n }\n }, 1000);\n \n // Also try on player load\n var observer = new MutationObserver(tryTheater);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "YouTube Theater Mode Default");
}
} catch(__e) { console.warn('[Userscript:YouTube Theater Mode Default]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Add load tests for expansion analyzers#755

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

Copilot
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Add load tests for expansion analyzers
#755
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
96cd573

Initial plan


Copilot Nov 13, 2025
06f12ac

Add load tests for expansion analyzers


Copilot Nov 13, 2025
1ab6849

Fix analyzer load tests per review feedback


Copilot Nov 14, 2025

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


118 changes: 118 additions & 0 deletions
test/analyzer-load-test.rkt

View file


Open in desktop

@jackfirthjackfirthNov 14, 2025

Copy link


Copy Markdown

Owner
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Put all of this inside of a (module+ test ...) submodule.
CopilotAINov 14, 2025

Copy link


Copy Markdown

ContributorAuthor
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Done in 1ab6849. All code is now inside (module+ test ...).
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,118 @@
#lang racket/base


(module+ test
 (require racket/string
 rackunit
 resyntax/default-recommendations/analyzers/identifier-usage
 resyntax/default-recommendations/analyzers/variable-mutability
 resyntax/default-recommendations/analyzers/ignored-result-values
 resyntax/default-recommendations/analyzers/function-expression-analyzer
 resyntax/private/analyzer
 resyntax/private/source)

 ;; Load tests for expansion analyzers to ensure they can handle large files
 ;; within reasonable timeouts. These tests are designed to catch severe
 ;; performance regressions where analyzers would take minutes or hang on
 ;; moderately large files.

 (define timeout-ms 30000) ; 30 second timeout for load tests

 ;; Generate a large test file with many definitions and function calls.
 ;; This creates a file with approximately 300+ lines of code with various
 ;; constructs that analyzers need to process. The file is large enough to
 ;; exercise analyzer performance but small enough to complete in reasonable time.
 (define (generate-large-test-program)
 (string-join
 (append
 (list "#lang racket/base"
 ""
 "(require racket/list racket/string)"
 "")
 ;; Generate many function definitions
 (for/list ([i (in-range 25)])
 (format "(define (func~a x y)
 (let ([a (+ x y)]
 [b (* x y)])
 (if (> a b)
 (+ a b)
 (* a b))))" i))
 (list "")
 ;; Generate many variable definitions
 (for/list ([i (in-range 30)])
 (format "(define var~a ~a)" i i))
 (list "")
 ;; Generate many mutable variables with assignments
 (for/list ([i (in-range 20)])
 (format "(define mut~a 0)
(set! mut~a ~a)" i i i))
 (list "")
 ;; Generate function calls with various patterns
 (for/list ([i (in-range 25)])
 (format "(void (func~a var~a (+ var~a ~a)))"
 (modulo i 25)
 (modulo i 30)
 (modulo (+ i 1) 30)
 i))
 (list "")
 ;; Generate nested expressions with ignored results
 (for/list ([i (in-range 15)])
 (format "(begin
 (+ ~a ~a)
 (void ~a))" i (+ i 1) i)))
 "\n"))

 (define large-test-source (string-source (generate-large-test-program)))

 ;; Expand the test source once and reuse for all tests
 (define expanded-syntax
 (parameterize ([current-namespace (make-base-namespace)])
 (source-expand large-test-source)))

 (test-case "identifier-usage-analyzer load test"
 ;; This test ensures the identifier-usage-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list identifier-usage-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "identifier-usage-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "variable-mutability-analyzer load test"
 ;; This test ensures the variable-mutability-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list variable-mutability-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "variable-mutability-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "ignored-result-values-analyzer load test"
 ;; This test ensures the ignored-result-values-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list ignored-result-values-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "ignored-result-values-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "function-expression-analyzer load test"
 ;; This test ensures the function-expression-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list function-expression-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "function-expression-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms))))

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Remove or un-stick sticky/fixed headers that block content\n(function() {\n function unstick() {\n document.querySelectorAll('header, nav, [role=\"banner\"], .header, .navbar, .sticky, .fixed-top, [style*=\"position: fixed\"], [style*=\"position:sticky\"]').forEach(function(el) {\n if (el.style.position === 'fixed' || el.style.position === 'sticky' || \n getComputedStyle(el).position === 'fixed' || getComputedStyle(el).position === 'sticky') {\n el.style.position = 'static';\n el.style.top = 'auto';\n el.style.zIndex = 'auto';\n }\n });\n }\n \n unstick();\n \n var observer = new MutationObserver(unstick);\n observer.observe(document.body, { childList: true, subtree: true, attributes: true, attributeFilter: ['style', 'class'] });\n})();", "Kill Sticky Headers");
}
} catch(__e) { console.warn('[Userscript:Kill Sticky Headers]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Add load tests for expansion analyzers#755

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

Copilot
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Add load tests for expansion analyzers
#755
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
96cd573

Initial plan


Copilot Nov 13, 2025
06f12ac

Add load tests for expansion analyzers


Copilot Nov 13, 2025
1ab6849

Fix analyzer load tests per review feedback


Copilot Nov 14, 2025

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


118 changes: 118 additions & 0 deletions
test/analyzer-load-test.rkt

View file


Open in desktop

@jackfirthjackfirthNov 14, 2025

Copy link


Copy Markdown

Owner
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Put all of this inside of a (module+ test ...) submodule.
CopilotAINov 14, 2025

Copy link


Copy Markdown

ContributorAuthor
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Done in 1ab6849. All code is now inside (module+ test ...).
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,118 @@
#lang racket/base


(module+ test
 (require racket/string
 rackunit
 resyntax/default-recommendations/analyzers/identifier-usage
 resyntax/default-recommendations/analyzers/variable-mutability
 resyntax/default-recommendations/analyzers/ignored-result-values
 resyntax/default-recommendations/analyzers/function-expression-analyzer
 resyntax/private/analyzer
 resyntax/private/source)

 ;; Load tests for expansion analyzers to ensure they can handle large files
 ;; within reasonable timeouts. These tests are designed to catch severe
 ;; performance regressions where analyzers would take minutes or hang on
 ;; moderately large files.

 (define timeout-ms 30000) ; 30 second timeout for load tests

 ;; Generate a large test file with many definitions and function calls.
 ;; This creates a file with approximately 300+ lines of code with various
 ;; constructs that analyzers need to process. The file is large enough to
 ;; exercise analyzer performance but small enough to complete in reasonable time.
 (define (generate-large-test-program)
 (string-join
 (append
 (list "#lang racket/base"
 ""
 "(require racket/list racket/string)"
 "")
 ;; Generate many function definitions
 (for/list ([i (in-range 25)])
 (format "(define (func~a x y)
 (let ([a (+ x y)]
 [b (* x y)])
 (if (> a b)
 (+ a b)
 (* a b))))" i))
 (list "")
 ;; Generate many variable definitions
 (for/list ([i (in-range 30)])
 (format "(define var~a ~a)" i i))
 (list "")
 ;; Generate many mutable variables with assignments
 (for/list ([i (in-range 20)])
 (format "(define mut~a 0)
(set! mut~a ~a)" i i i))
 (list "")
 ;; Generate function calls with various patterns
 (for/list ([i (in-range 25)])
 (format "(void (func~a var~a (+ var~a ~a)))"
 (modulo i 25)
 (modulo i 30)
 (modulo (+ i 1) 30)
 i))
 (list "")
 ;; Generate nested expressions with ignored results
 (for/list ([i (in-range 15)])
 (format "(begin
 (+ ~a ~a)
 (void ~a))" i (+ i 1) i)))
 "\n"))

 (define large-test-source (string-source (generate-large-test-program)))

 ;; Expand the test source once and reuse for all tests
 (define expanded-syntax
 (parameterize ([current-namespace (make-base-namespace)])
 (source-expand large-test-source)))

 (test-case "identifier-usage-analyzer load test"
 ;; This test ensures the identifier-usage-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list identifier-usage-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "identifier-usage-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "variable-mutability-analyzer load test"
 ;; This test ensures the variable-mutability-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list variable-mutability-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "variable-mutability-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "ignored-result-values-analyzer load test"
 ;; This test ensures the ignored-result-values-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list ignored-result-values-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "ignored-result-values-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "function-expression-analyzer load test"
 ;; This test ensures the function-expression-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list function-expression-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "function-expression-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms))))

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Universal Dark Mode - works on any site\n(function() {\n var enabled = true;\n \n function applyDarkMode() {\n if (!enabled) return;\n \n // Create style element if it doesn't exist\n var style = document.getElementById('universal-dark-mode-style');\n if (!style) {\n style = document.createElement('style');\n style.id = 'universal-dark-mode-style';\n document.head.appendChild(style);\n }\n \n // Dark mode CSS - inverts colors but preserves images/video\n style.textContent = '\n /* Invert everything except media */\n html {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #1a1a2e !important;\n }\n \n /* Restore images, videos, iframes, canvas */\n img, video, iframe, canvas, svg, picture, [style*=\"background-image\"] {\n filter: invert(1) hue-rotate(180deg) !important;\n }\n \n /* Preserve specific elements that should not be inverted */\n .no-dark-mode, .no-dark-mode *,\n [data-theme=\"light\"], [data-theme=\"light\"],\n .ace_editor, .ace_editor *,\n .CodeMirror, .CodeMirror *,\n .monaco-editor, .monaco-editor *,\n .markdown-body pre, .markdown-body pre *,\n .highlight, .highlight *,\n pre code, pre code * {\n filter: none !important;\n }\n \n /* Fix common UI elements */\n .modal, .popup, .dropdown-menu, .tooltip, .popover {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #2d2d44 !important;\n border-color: #444 !important;\n }\n \n /* Scrollbars */\n ::-webkit-scrollbar { background: #1a1a2e !important; }\n ::-webkit-scrollbar-thumb { background: #444 !important; }\n ::-webkit-scrollbar-thumb:hover { background: #555 !important; }\n \n /* Selection */\n ::selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ::-moz-selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ';\n }\n \n function removeDarkMode() {\n var style = document.getElementById('universal-dark-mode-style');\n if (style) style.remove();\n }\n \n // Toggle with Alt+Shift+D\n document.addEventListener('keydown', function(e) {\n if (e.altKey && e.shiftKey && e.key === 'D') {\n e.preventDefault();\n enabled = !enabled;\n if (enabled) {\n applyDarkMode();\n console.log('[Universal Dark Mode] Enabled');\n } else {\n removeDarkMode();\n console.log('[Universal Dark Mode] Disabled');\n }\n }\n });\n \n // Apply on load\n applyDarkMode();\n \n // Re-apply on dynamic content\n var observer = new MutationObserver(function(mutations) {\n if (enabled && !document.getElementById('universal-dark-mode-style')) {\n applyDarkMode();\n }\n });\n observer.observe(document.head, { childList: true });\n \n console.log('[Universal Dark Mode] Loaded - Press Alt+Shift+D to toggle');\n})();", "Universal Dark Mode");
}
} catch(__e) { console.warn('[Userscript:Universal Dark Mode]', __e); }
})();
})();

Skip to content
Add load tests for expansion analyzers#755

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

Copilot
wants to merge
3
commits into

base:master
Choose a base branch

from

 Open


Add load tests for expansion analyzers
#755
 Changes from all commits
Commits

Show all changes


3 commits


Select commit
Hold shift + click to select a range
96cd573

Initial plan


Copilot Nov 13, 2025
06f12ac

Add load tests for expansion analyzers


Copilot Nov 13, 2025
1ab6849

Fix analyzer load tests per review feedback


Copilot Nov 14, 2025

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


118 changes: 118 additions & 0 deletions
test/analyzer-load-test.rkt

View file


Open in desktop

@jackfirthjackfirthNov 14, 2025

Copy link


Copy Markdown

Owner
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Put all of this inside of a (module+ test ...) submodule.
CopilotAINov 14, 2025

Copy link


Copy Markdown

ContributorAuthor
Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Done in 1ab6849. All code is now inside (module+ test ...).
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,118 @@
#lang racket/base


(module+ test
 (require racket/string
 rackunit
 resyntax/default-recommendations/analyzers/identifier-usage
 resyntax/default-recommendations/analyzers/variable-mutability
 resyntax/default-recommendations/analyzers/ignored-result-values
 resyntax/default-recommendations/analyzers/function-expression-analyzer
 resyntax/private/analyzer
 resyntax/private/source)

 ;; Load tests for expansion analyzers to ensure they can handle large files
 ;; within reasonable timeouts. These tests are designed to catch severe
 ;; performance regressions where analyzers would take minutes or hang on
 ;; moderately large files.

 (define timeout-ms 30000) ; 30 second timeout for load tests

 ;; Generate a large test file with many definitions and function calls.
 ;; This creates a file with approximately 300+ lines of code with various
 ;; constructs that analyzers need to process. The file is large enough to
 ;; exercise analyzer performance but small enough to complete in reasonable time.
 (define (generate-large-test-program)
 (string-join
 (append
 (list "#lang racket/base"
 ""
 "(require racket/list racket/string)"
 "")
 ;; Generate many function definitions
 (for/list ([i (in-range 25)])
 (format "(define (func~a x y)
 (let ([a (+ x y)]
 [b (* x y)])
 (if (> a b)
 (+ a b)
 (* a b))))" i))
 (list "")
 ;; Generate many variable definitions
 (for/list ([i (in-range 30)])
 (format "(define var~a ~a)" i i))
 (list "")
 ;; Generate many mutable variables with assignments
 (for/list ([i (in-range 20)])
 (format "(define mut~a 0)
(set! mut~a ~a)" i i i))
 (list "")
 ;; Generate function calls with various patterns
 (for/list ([i (in-range 25)])
 (format "(void (func~a var~a (+ var~a ~a)))"
 (modulo i 25)
 (modulo i 30)
 (modulo (+ i 1) 30)
 i))
 (list "")
 ;; Generate nested expressions with ignored results
 (for/list ([i (in-range 15)])
 (format "(begin
 (+ ~a ~a)
 (void ~a))" i (+ i 1) i)))
 "\n"))

 (define large-test-source (string-source (generate-large-test-program)))

 ;; Expand the test source once and reuse for all tests
 (define expanded-syntax
 (parameterize ([current-namespace (make-base-namespace)])
 (source-expand large-test-source)))

 (test-case "identifier-usage-analyzer load test"
 ;; This test ensures the identifier-usage-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list identifier-usage-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "identifier-usage-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "variable-mutability-analyzer load test"
 ;; This test ensures the variable-mutability-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list variable-mutability-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "variable-mutability-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "ignored-result-values-analyzer load test"
 ;; This test ensures the ignored-result-values-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list ignored-result-values-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "ignored-result-values-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms)))

 (test-case "function-expression-analyzer load test"
 ;; This test ensures the function-expression-analyzer can analyze a large file
 ;; within the timeout period.
 (define-values (result cpu-time real-time gc-time)
 (time-apply expansion-analyze (list function-expression-analyzer expanded-syntax)))

 ;; Verify it completed within the timeout
 (check-true (< real-time timeout-ms)
 (format "function-expression-analyzer took ~a ms, expected < ~a ms"
 real-time
 timeout-ms))))