diff options
| author | ubq323 <ubq323@ubq323.website> | 2024-08-17 23:13:35 +0100 |
|---|---|---|
| committer | ubq323 <ubq323@ubq323.website> | 2024-08-17 23:13:35 +0100 |
| commit | e7cc8217d5f2ba69b8baca97ea9b6bf6fd028c8a (patch) | |
| tree | 91f5d89ecc31c935b36cc27305d06be48a887ac0 /tests | |
| parent | 91d59f1ba812c7df783e459c8af8d1c1be1d27f4 (diff) | |
add ssub? function
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ssub.bth | 8 | ||||
| -rw-r--r-- | tests/ssub.out | 7 |
2 files changed, 15 insertions, 0 deletions
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 |