From e7cc8217d5f2ba69b8baca97ea9b6bf6fd028c8a Mon Sep 17 00:00:00 2001 From: ubq323 Date: Sat, 17 Aug 2024 23:13:35 +0100 Subject: add ssub? function --- tests/ssub.bth | 8 ++++++++ tests/ssub.out | 7 +++++++ 2 files changed, 15 insertions(+) create mode 100644 tests/ssub.bth create mode 100644 tests/ssub.out (limited to 'tests') 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) diff --git a/tests/ssub.out b/tests/ssub.out new file mode 100644 index 0000000..1d000fa --- /dev/null +++ b/tests/ssub.out @@ -0,0 +1,7 @@ +true +true +false +false +true +true +true -- cgit v1.2.3