From 069f6367b5c638c44e8f2c55ef1df604df2adac1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 29 Nov 2025 04:30:26 +0000
Subject: work/command-line-tool: Accept ints as floats too.

---
 tests/work/command-line-tool.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests/work/command-line-tool.scm')

diff --git a/tests/work/command-line-tool.scm b/tests/work/command-line-tool.scm
index 3d63fbb..c008412 100644
--- a/tests/work/command-line-tool.scm
+++ b/tests/work/command-line-tool.scm
@@ -26,4 +26,8 @@
   #f
   (match-type 'null (cwl-array-type 'File)))
 
+(test-equal "match int to float"
+  'float
+  (match-type 1 'float))
+
 (test-end "work.command-line-tool")
-- 
cgit 1.4.1