From 6deeb9630d4b4e7d672ab851dcd4fe3d0d3d2865 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Wed, 26 Jun 2024 14:51:01 +0100
Subject: func5 test

---
 tests/func5.bth | 8 ++++++++
 tests/func5.out | 6 ++++++
 2 files changed, 14 insertions(+)
 create mode 100644 tests/func5.bth
 create mode 100644 tests/func5.out

diff --git a/tests/func5.bth b/tests/func5.bth
new file mode 100644
index 0000000..890e706
--- /dev/null
+++ b/tests/func5.bth
@@ -0,0 +1,8 @@
+(set f (fn (a) (say (* a a))))
+(f 2)
+(f 4)
+(f 6)
+(f 8)
+(let (a 5)
+	(f a)
+	(f (* 2 a)))
diff --git a/tests/func5.out b/tests/func5.out
new file mode 100644
index 0000000..e58888d
--- /dev/null
+++ b/tests/func5.out
@@ -0,0 +1,6 @@
+4
+16
+36
+64
+25
+100
-- 
cgit v1.2.3