path: root/tests/ssub.bth

(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)