From 1ab6c70ac727f1edade100573327baa069e6dd1c Mon Sep 17 00:00:00 2001
From: "Paul Gauthier (aider)" <paul@aider.chat>
Date: Wed, 12 Mar 2025 15:16:02 -0700
Subject: [PATCH] feat: Add R language test case and fixture for repository
 mapping

---
 tests/basic/test_repomap.py       |  1 +
 tests/fixtures/languages/r/test.r | 17 +++++++++++++++++
 2 files changed, 18 insertions(+)
 create mode 100644 tests/fixtures/languages/r/test.r

diff --git a/tests/basic/test_repomap.py b/tests/basic/test_repomap.py
index c639b3be4..819c3ffaa 100644
--- a/tests/basic/test_repomap.py
+++ b/tests/basic/test_repomap.py
@@ -313,6 +313,7 @@ class TestRepoMapAllLanguages(unittest.TestCase):
             "commonlisp": ("lisp", "greet"),
             "pony": ("pony", "Greeter"),
             "properties": ("properties", "database.url"),
+            "r": ("r", "calculate"),
         }
 
         fixtures_dir = Path(__file__).parent.parent / "fixtures" / "languages"
diff --git a/tests/fixtures/languages/r/test.r b/tests/fixtures/languages/r/test.r
new file mode 100644
index 000000000..191881e76
--- /dev/null
+++ b/tests/fixtures/languages/r/test.r
@@ -0,0 +1,17 @@
+# Simple R function for testing repository mapping
+calculate <- function(x, y) {
+  # This function performs a simple calculation
+  result <- x * y
+  return(result)
+}
+
+# Another function to test detection
+process_data <- function(data) {
+  # Process some data
+  return(data * 2)
+}
+
+# Example usage
+sample_data <- c(1, 2, 3, 4, 5)
+result <- calculate(10, 5)
+processed <- process_data(sample_data)