Commits

anykey111  committed 9821054

test bitstring-bit-set?

  • Participants
  • Parent commits 1ec4c5a

Comments (0)

Files changed (1)

File tests/run.scm

 
 ;;;;;;;;;;;;;;;;;;
 
+(test-begin "bit-set?")
+(test #t (bitstring-bit-set? (->bitstring '#${80 00}) 0))
+(test #t (bitstring-bit-set? (->bitstring '#${01 00}) 7))
+(test #t (bitstring-bit-set? (->bitstring '#${00 01}) -1))
+(test #t (bitstring-bit-set? (->bitstring '#${80 00}) -16))
+(test-end)
+
 (test-begin "construct bitstring syntax")
 (define foo "\x01")
 (test (bitconstruct (1)(2)) (bitconstruct (foo bitstring) (2)))