about summary refs log tree commit diff
path: root/tests/work
diff options
context:
space:
mode:
authorArun Isaac2025-11-29 12:35:39 +0000
committerArun Isaac2025-11-29 12:35:39 +0000
commit4435efa37c1e7afbd2c75fc2067f7e9bf58094e8 (patch)
treee0828eb31d4659bbddc25413ea1c391a9b5538c1 /tests/work
parent069f6367b5c638c44e8f2c55ef1df604df2adac1 (diff)
downloadravanan-4435efa37c1e7afbd2c75fc2067f7e9bf58094e8.tar.gz
ravanan-4435efa37c1e7afbd2c75fc2067f7e9bf58094e8.tar.lz
ravanan-4435efa37c1e7afbd2c75fc2067f7e9bf58094e8.zip
work/command-line-tool: Avoid infinite recursion in matching floats.
Diffstat (limited to 'tests/work')
-rw-r--r--tests/work/command-line-tool.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/work/command-line-tool.scm b/tests/work/command-line-tool.scm
index c008412..93b97d4 100644
--- a/tests/work/command-line-tool.scm
+++ b/tests/work/command-line-tool.scm
@@ -30,4 +30,8 @@
   'float
   (match-type 1 'float))
 
+(test-equal "match float to float"
+  'float
+  (match-type 1.3 'float))
+
 (test-end "work.command-line-tool")