boot2

Playing with the boostrap
git clone https://git.ryansepassi.com/git/boot2.git
Log | Files | Refs | README

000-bv-prefix.scm (560B)

      1 ;; tests/cc-util/00-bv-prefix.scm — bv-prefix? happy + edge cases.
      2 ;; Assumes cc/util.scm is loaded (test runner wiring lands later).
      3 
      4 (if (bv-prefix? "abc"    "abcdef") 0 (sys-exit 1)) ; happy path
      5 (if (bv-prefix? ""       "anything") 0 (sys-exit 2)) ; empty prefix
      6 (if (bv-prefix? ""       "") 0 (sys-exit 3))         ; empty/empty
      7 (if (bv-prefix? "abcd"   "abc") (sys-exit 4) 0)      ; prefix longer than s
      8 (if (bv-prefix? "abx"    "abcdef") (sys-exit 5) 0)   ; differs mid-prefix
      9 (if (bv-prefix? "abcdef" "abcdef") 0 (sys-exit 6))   ; equal
     10 (sys-exit 0)