search

lfex / ledis

An LFE Redis Client Library
Other
6 stars 0 forks source link

Issue with bitops #11

Open oubiwann opened 8 years ago

oubiwann commented 8 years ago

The following commented-out unit test seems to reveal something broken in bitops:

; (deftest bitops
;   (is-equal (ledis:set 'd #b(#xff #xf0 #x00))
;             #(ok #"OK"))
;   (is-equal (ledis:bitops 'd 0)
;             #(ok #"12"))
;   (is-equal (ledis:set 'd #b(#x00 #xff #xf0))
;             #(ok #"OK"))
;   (is-equal (ledis:bitops 'd 1 '(#(start 1)))
;             #(ok #"8"))
;   (is-equal (ledis:bitops 'd 1 '(#(start 2)))
;             #(ok #"16"))
;   (is-equal (ledis:set 'd #b(#x00 #x00 #x00))
;             #(ok #"OK"))
;   (is-equal (ledis:bitpos 'd 1)
;             #(ok #"-1")))