boot2

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

002-bv-slice-cat.scm (684B)

      1 ;; tests/cc-util/02-bv-slice-cat.scm — bv-slice and bv-cat round-trip.
      2 ;; Assumes cc/util.scm is loaded.
      3 
      4 (if (bv= (bv-slice "abcdef" 2 5) "cde")              0 (sys-exit 1))
      5 (if (bv= (bv-slice "abcdef" 0 0) "")                 0 (sys-exit 2)) ; zero-length
      6 (if (bv= (bv-slice "abcdef" 0 6) "abcdef")           0 (sys-exit 3)) ; full
      7 (if (bv= (bv-cat '()) "")                            0 (sys-exit 4)) ; empty list
      8 (if (bv= (bv-cat (list "a" "b" "c")) "abc")          0 (sys-exit 5))
      9 (if (bv= (bv-cat (list "" "abc" "" "def" ""))
     10          "abcdef")                                   0 (sys-exit 6))
     11 (if (bv= (bv-of-byte 65) "A")                        0 (sys-exit 7))
     12 (sys-exit 0)