;;; SPDX-License-Identifier: MIT
;;; SPDX-FileCopyrightText: 2020 Wolfgang Corcoran-Mathe

(define (check-selectors)
  (print-header "Checking selectors...")

  (check (bitvector-length (bitvector))             => 0)
  (check (bitvector-length (bitvector 1 0 1 0))     => 4)
  (check (bitvector-ref/int (bitvector 1 0 1 0) 0)  => 1)
  (check (bitvector-ref/int (bitvector 1 0 1 0) 3)  => 0)
  (check (bitvector-ref/bool (bitvector 1 0 1 0) 0) => #t)
  (check (bitvector-ref/bool (bitvector 1 0 1 0) 3) => #f))

