From e7cc8217d5f2ba69b8baca97ea9b6bf6fd028c8a Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Sat, 17 Aug 2024 23:13:35 +0100
Subject: add ssub? function

---
 tests/ssub.bth | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 tests/ssub.bth

(limited to 'tests/ssub.bth')

diff --git a/tests/ssub.bth b/tests/ssub.bth
new file mode 100644
index 0000000..4c69a28
--- /dev/null
+++ b/tests/ssub.bth
@@ -0,0 +1,8 @@
+(defn (f n h) (say (ssub? n h)))
+(f 'ee 'needle)
+(f 'l 'flucloxacillin)
+(f 'l 'fucoxaciin)
+(f "really really long thethethethe" "h")
+(f 'start "start the at")
+(f 'end "at the end")
+(f 'entire 'entire)
-- 
cgit v1.2.3