improved starts-with tests

main
Inga 🏳‍🌈 12 months ago
parent 2a75e9eaa9
commit 7520a58aec
  1. 4
      day01-hard/main.scm

@ -106,8 +106,8 @@
(starts-with '(1 2 3) '(4 5 6 7)))
(assert-eq "starts-with test 5 failed"
(string->list "d")
(starts-with (string->list "abc") (string->list "abcd")))
(string->list "de")
(starts-with (string->list "abc") (string->list "abcde")))
;=============== tokenize ======================
(define (tokenize-generic tokens next) (Y

Loading…
Cancel
Save