From ef8f6c020452865d583266a8b14ea9cdfb38ea71 Mon Sep 17 00:00:00 2001 From: Tobias Linn Date: Thu, 18 Jun 2026 12:47:46 +0200 Subject: [PATCH] added fortran program summary test --- crates/pi-ast/src/summary.rs | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/crates/pi-ast/src/summary.rs b/crates/pi-ast/src/summary.rs index b6a73eb69..285604eb7 100644 --- a/crates/pi-ast/src/summary.rs +++ b/crates/pi-ast/src/summary.rs @@ -987,6 +987,19 @@ mod tests { ); } + #[test] + fn summarizes_fortran_program() { + let result = summarize( + "program hello\n print *, 'hi'\nend program hello\n", + "fixture.f90", + ); + + assert!(result.parsed); + assert_eq!(result.language.as_deref(), Some("fortran")); + assert!(!result.segments.is_empty()); + } + + #[test] fn summarizes_emacs_lisp_defun_body() { let code = "(defun greet (name)\n \"Doc.\"\n (let ((message (format \"Hello %s\" \