Test output for bitstring [ok]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

-- testing bitstring ---------------------------------------------------------

    -- testing bit-set? ------------------------------------------------------
    (bitstring-bit-set? (->bitstring '#${8000}) 0) ................... [ PASS]
    (bitstring-bit-set? (->bitstring '#${0100}) 7) ................... [ PASS]
    (bitstring-bit-set? (->bitstring '#${0001}) -1) .................. [ PASS]
    (bitstring-bit-set? (->bitstring '#${8000}) -16) ................. [ PASS]
    4 tests completed in 1/200 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing bit-set? -------------------------------------------------


    -- testing construct bitstring syntax ------------------------------------
    (bitconstruct (foo bitstring) (2)) ............................... [ PASS]
    (bitconstruct (foo bitstring)) ................................... [ PASS]
    2 tests completed in 9/1000 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing construct bitstring syntax -------------------------------


    -- testing integer attributes --------------------------------------------
    (bitmatch "" ((x 8 signed) -> x)) ............................... [ PASS]
    (bitmatch bstr ((x signed) -> x)) ................................ [ PASS]
    (bitmatch bstr ((x unsigned) -> x)) .............................. [ PASS]
    (bitmatch bstr ((x 8 signed) -> x)) .............................. [ PASS]
    (bitmatch bstr ((x 8 unsigned) -> x)) ............................ [ PASS]
    (bitmatch bstr ((x 8 big signed) -> x)) .......................... [ PASS]
    (bitmatch bstr ((x 8 big unsigned) -> x)) ........................ [ PASS]
    (bitmatch bstr ((x 8 little signed) -> x)) ....................... [ PASS]
    (bitmatch bstr ((x 8 little unsigned) -> x)) ..................... [ PASS]
    (bitmatch bstr ((x 8 signed host) -> x)) ......................... [ PASS]
    (bitmatch bstr ((x 8 unsigned host) -> x)) ....................... [ PASS]
    (bitmatch bstr ((x 8 unsigned cost) -> x)) ....................... [ PASS]
    (bitmatch (bitstring-share bstr 0 4) ((x 4 signed) -> x)) ........ [ PASS]
    (bitmatch (bitstring-share bstr 4 8) ((x 4 signed) -> x)) ........ [ PASS]
    14 tests completed in 67/1000 seconds.
    14 out of 14 (100%) tests passed.
    -- done testing integer attributes ---------------------------------------


    -- testing bitstring->list -----------------------------------------------
    (bitstring->list bstr 1 'big) .................................... [ PASS]
    (bitstring->list bstr 1 'little) ................................. [ PASS]
    (bitstring->list bstr 1 'host) ................................... [ PASS]
    3 tests completed in 1/250 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing bitstring->list ------------------------------------------


    -- testing list->bitstring -----------------------------------------------
    (bitstring->list bar 8) .......................................... [ PASS]
    (bitstring->list bar 8 'big) ..................................... [ PASS]
    (bitstring->list bar 8 'little) .................................. [ PASS]
    (bitstring->list bar 8 'host) .................................... [ PASS]
    4 tests completed in 1/200 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing list->bitstring ------------------------------------------


    -- testing bitstring-reverse ---------------------------------------------
    (bitstring->list (bitstring-reverse bs 8) 8) ..................... [ PASS]
    1 test completed in 1/1000 seconds.
    1 out of 1 (100%) test passed.
    -- done testing bitstring-reverse ----------------------------------------


    -- testing bitstring <-> vector ------------------------------------------
    (bitstring->vector (vector->bitstring x)) ........................ [ PASS]
    1 test completed in 1/500 seconds.
    1 out of 1 (100%) test passed.
    -- done testing bitstring <-> vector -------------------------------------


    -- testing bitstring <-> u8vector ----------------------------------------
    (bitstring->u8vector (u8vector->bitstring x)) .................... [ PASS]
    (bitstring->u8vector bs9) ........................................ [ PASS]
    (bitstring->u8vector bs9 'right) ................................. [ PASS]
    (bitstring->u8vector bs7 'left) .................................. [ PASS]
    (bitstring->u8vector bs7 'right) ................................. [ PASS]
    5 tests completed in 13/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing bitstring <-> u8vector -----------------------------------


    -- testing bitstring <-> blob --------------------------------------------
    (bitstring->blob (blob->bitstring x)) ............................ [ PASS]
    (bitstring->blob bs9) ............................................ [ PASS]
    (bitstring->blob bs9 'right) ..................................... [ PASS]
    3 tests completed in 1/250 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing bitstring <-> blob ---------------------------------------


    -- testing bitstring <-> string ------------------------------------------
    (bitstring->string (string->bitstring x)) ........................ [ PASS]
    1 test completed in 1/1000 seconds.
    1 out of 1 (100%) test passed.
    -- done testing bitstring <-> string -------------------------------------


    -- testing single-double -------------------------------------------------
    (bitmatch a (((x float)) x)) ..................................... [ PASS]
    (bitmatch b (((x double)) x)) .................................... [ PASS]
    (bitmatch (bitconstruct (0.123 float little)) (((f float little...  [ PASS]
    (bitmatch (bitconstruct (0.123 float big)) (((f float big)) f)) .. [ PASS]
    (bitmatch (bitconstruct (0.123 double host)) (((f double host))...  [ PASS]
    (bitstring->list (bitconstruct (0.123 double big)) 8) ............ [ PASS]
    (bitstring->list (bitconstruct (0.123 double little)) 8) ......... [ PASS]
    7 tests completed in 7/200 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing single-double --------------------------------------------


    -- testing string-constant -----------------------------------------------
    (bitmatch "123" ((("234")) 1) ((("123")) 2)) ..................... [ PASS]
    (bitmatch s123 ((("234")) 1) ((("123")) 2)) ...................... [ PASS]
    (bitmatch s123 ((("234")) 1) (((s123 bitstring)) 2)) ............. [ PASS]
    (bitmatch "123" ((("234")) 1) (((s123 bitstring)) 2)) ............ [ PASS]
    4 tests completed in 3/100 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing string-constant ------------------------------------------


    -- testing construct -----------------------------------------------------
    (bitmatch nstr (((3) ("ABC")) #t) (else #f)) ..................... [ PASS]
    1 test completed in 17/1000 seconds.
    1 out of 1 (100%) test passed.
    -- done testing construct ------------------------------------------------


    -- testing append --------------------------------------------------------
    (bitstring->string (bitstring-append (->bitstring "123") (->bit...  [ PASS]
    (bitstring->string bs) ........................................... [ PASS]
    (bitstring=? bs (->bitstring "AB ")) ............................. [ PASS]
    (bitstring=? (bitconstruct ("AB")) c) ............................ [ PASS]
    (bitstring=? (bitconstruct ("A")) a) ............................. [ PASS]
    (bitstring=? (bitconstruct ("B")) b) ............................. [ PASS]
    (bitstring-length c) ............................................. [ PASS]
    (bitstring->integer-big bs) ...................................... [ PASS]
    (bitstring->integer-big bs) ...................................... [ PASS]
    (bitstring->integer-big bs) ...................................... [ PASS]
    (bitstring=? (->bitstring (string-append a b)) bs) ............... [ PASS]
    (bitstring=? (->bitstring (string-append a b c)) bs) ............. [ PASS]
    12 tests completed in 23/1000 seconds.
    12 out of 12 (100%) tests passed.
    -- done testing append ---------------------------------------------------


    -- testing bitpacket -----------------------------------------------------
    (bitmatch `#(1 2 3) (((Packet1 bitpacket) (C 8)) C)) ............. [ PASS]
    (bitmatch `#(1 2 3) (((Packet2 bitpacket) (C 8)) (+ A B C))) ..... [ PASS]
    (bitmatch `#(1 2 3) (((Packet1 bitpacket) (C 8) (D 8)) C)) ....... [ PASS]
    (bitmatch `#(1 2 3) (((PacketA bitpacket)) (+ A B C))) ........... [ PASS]
    (bitmatch `#(44 10) (((PacketX bitpacket)) (+ 1 ValueX)) (((Pac...  [ PASS]
    (bitmatch "\x01\x02\x03\x04" (((p1 Point bitpacket) (p2 Point b...  [ PASS]
    (bitmatch "\x01\x02\x03\x04" (((Line bitpacket)) (+ start.x end...  [ PASS]
    (bitmatch "\x01\x02\x03\x04" (((line Line bitpacket)) (+ line.s...  [ PASS]
    ...(bitstring->string (bitconstruct (line Line bitpacket))) ...... [ PASS]
    (blob->f32vector (bitstring->blob (make-Point3D (x 0.0) (y -1.0...  [ PASS]
    10 tests completed in 18/125 seconds.
    10 out of 10 (100%) tests passed.
    -- done testing bitpacket ------------------------------------------------


    -- testing ->bitstring ---------------------------------------------------
    (bitmatch "ABC" ((("A") (66) (#\C)) 'ok)) ........................ [ PASS]
    (bitmatch "ABC" ((("AB") (#\C)) 'ok)) ............................ [ PASS]
    (bitmatch `#(65 66 67) ((("A") (66) (#\C)) 'ok)) ................. [ PASS]
    (bitmatch `#u8(65 66 67) ((("A") (66) (#\C)) 'ok)) ............... [ PASS]
    (bitmatch (string->blob "ABC") ((("A") (66) (#\C)) 'ok)) ......... [ PASS]
    (bitmatch (s8vector 65 66 67) ((("A") (66) (#\C)) 'ok)) .......... [ PASS]
 count=5 rest=40
    6 tests completed in 43/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing ->bitstring ----------------------------------------------


    -- testing short form ----------------------------------------------------
    (bitmatch `#(10 20 30) (((10) (20) (11)) 'no) (((10) (20) (33))...  [ PASS]
    1 test completed in 3/125 seconds.
    1 out of 1 (100%) test passed.
    -- done testing short form -----------------------------------------------


    -- testing match ---------------------------------------------------------
    (bitmatch `#(143) (((flagBit 1 big) (restValue 7)) (list flagBi...  [ PASS]
    (bitmatch `#(143) (((1 1) (rest)) 'fail) (((x 1) (check (= x 0)...  [ PASS]
    (bitmatch `#(143) (((142)) 'fail1) (((140)) 'fail2) (((143)) 'ok))  [ PASS]
    (bitmatch `#(143) (((142)) 'fail1) (((140)) 'fail2) (else 'ok)) .. [ PASS]
    4 tests completed in 39/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing match ----------------------------------------------------


    -- testing read ----------------------------------------------------------
    (bitstring-read bs 100) .......................................... [ PASS]
    (bitstring->integer-big (bitstring-share bs 0 3)) ................ [ PASS]
    (bitstring->integer-big (bitstring-share bs 3 10)) ............... [ PASS]
    (bitstring->integer-big (bitstring-share bs 10 24)) .............. [ PASS]
    (bitstring->integer-big (bitstring-read bs 3)) ................... [ PASS]
    (bitstring->integer-big (bitstring-read bs 7)) ................... [ PASS]
    (bitstring->integer-big (bitstring-read bs 14)) .................. [ PASS]
    (bitstring-read bs 1) ............................................ [ PASS]
    (bitstring->integer-big (bitstring-share bs 0 1)) ................ [ PASS]
    (bitstring->integer-big (bitstring-share bs 1 8)) ................ [ PASS]
    (bitstring->integer-big (bitstring-share bs 0 1)) ................ [ PASS]
    (bitstring->integer-big (bitstring-share bs 1 6)) ................ [ PASS]
    12 tests completed in 7/500 seconds.
    12 out of 12 (100%) tests passed.
    -- done testing read -----------------------------------------------------


    -- testing big -----------------------------------------------------------
    (get-fields (integer->bitstring-big 0 0)) ........................ [ PASS]
    (get-fields (integer->bitstring-big 1 3)) ........................ [ PASS]
    (bitstring->integer-big (integer->bitstring-big 1 3)) ............ [ PASS]
    (get-fields (integer->bitstring-big 15 8)) ....................... [ PASS]
    (bitstring->integer-big (integer->bitstring-big 15 8)) ........... [ PASS]
    (get-fields (integer->bitstring-big 2748 9)) ..................... [ PASS]
    (bitstring->integer-big (integer->bitstring-big 2748 9)) ......... [ PASS]
    (get-fields (integer->bitstring-big 2748 10)) .................... [ PASS]
    (bitstring->integer-big (integer->bitstring-big 2748 10)) ........ [ PASS]
    (bitstring->integer-big (integer->bitstring-big 123213 32)) ...... [ PASS]
    (bitstring->integer-big (integer->bitstring-big 1 32)) ........... [ PASS]
    (bitstring->integer-big (integer->bitstring-big 268435456 32)) ... [ PASS]
    (bitstring->integer-big (integer->bitstring-big 2147483647 32)) .. [ PASS]
    (bitstring->integer-big (integer->bitstring-big 4294967295 32)) .. [ PASS]
    14 tests completed in 2/125 seconds.
    14 out of 14 (100%) tests passed.
    -- done testing big ------------------------------------------------------


    -- testing little --------------------------------------------------------
    (get-fields (integer->bitstring-little 0 0)) ..................... [ PASS]
    (get-fields (integer->bitstring-little 1 3)) ..................... [ PASS]
    (bitstring->integer-little (integer->bitstring-little 1 3)) ...... [ PASS]
    (get-fields (integer->bitstring-little 15 8)) .................... [ PASS]
    (bitstring->integer-little (integer->bitstring-little 15 8)) ..... [ PASS]
    (get-fields (integer->bitstring-little 2748 9)) .................. [ PASS]
    (bitstring->integer-little (integer->bitstring-little 2748 9)) ... [ PASS]
    (get-fields (integer->bitstring-little 2748 10)) ................. [ PASS]
    (bitstring->integer-little (integer->bitstring-little 2748 10)) .. [ PASS]
    (bitstring->integer-little (integer->bitstring-little 123213 32))  [ PASS]
    (bitstring->integer-little (integer->bitstring-little 1 32)) ..... [ PASS]
    (bitstring->integer-little (integer->bitstring-little 268435456...  [ PASS]
    (bitstring->integer-little (integer->bitstring-little 214748364...  [ PASS]
    (bitstring->integer-little (integer->bitstring-little 429496729...  [ PASS]
    14 tests completed in 3/200 seconds.
    14 out of 14 (100%) tests passed.
    -- done testing little ---------------------------------------------------


    -- testing half ----------------------------------------------------------
    (bitstring->half (vector->bitstring `#(124 0))) .................. [ PASS]
    (bitstring->half (vector->bitstring `#(252 0))) .................. [ PASS]
    (bitstring->half (vector->bitstring `#(0 0))) .................... [ PASS]
    (bitstring->half (vector->bitstring `#(128 0))) .................. [ PASS]
    (bitstring->half (vector->bitstring `#(56 0))) ................... [ PASS]
    (bitstring->half (vector->bitstring `#(60 0))) ................... [ PASS]
    (bitstring->half (vector->bitstring `#(78 64))) .................. [ PASS]
    (bitstring->half (vector->bitstring `#(46 102))) ................. [ PASS]
    (bitstring->half (vector->bitstring `#(175 223))) ................ [ PASS]
    9 tests completed in 1/100 seconds.
    9 out of 9 (100%) tests passed.
    -- done testing half -----------------------------------------------------


    -- testing single --------------------------------------------------------
    (bitstring->single (vector->bitstring `#(0 0 128 127))) .......... [ PASS]
    (bitstring->single (vector->bitstring `#(0 0 128 255))) .......... [ PASS]
    (bitstring->single (vector->bitstring `#(0 0 0 0))) .............. [ PASS]
    (bitstring->single (vector->bitstring `#(0 0 0 128))) ............ [ PASS]
    (equal? 1.0 (bitstring->single (vector->bitstring `#(0 0 128 63...  [ PASS]
    (bitstring->single (vector->bitstring `#(0 0 0 63))) ............. [ PASS]
    (bitstring->single (vector->bitstring `#(0 0 200 65))) ........... [ PASS]
    (bitstring->single (vector->bitstring `#(205 204 204 61))) ....... [ PASS]
    (bitstring->single (vector->bitstring `#(231 109 251 189))) ...... [ PASS]
    (get-fields (single->bitstring 0.5)) ............................. [ PASS]
    (get-fields (single->bitstring -0.123)) .......................... [ PASS]
    11 tests completed in 3/250 seconds.
    11 out of 11 (100%) tests passed.
    -- done testing single ---------------------------------------------------


    -- testing boolean -------------------------------------------------------
    (bitmatch (bitconstruct (#t boolean)) (((B boolean)) B)) ......... [ PASS]
    (bitmatch (bitconstruct (#t 32 boolean)) (((B 32 boolean)) B)) ... [ PASS]
    (bitmatch (bitconstruct (#t 32 boolean little)) (((B 32 boolean...  [ PASS]
    (bitmatch (bitconstruct (#f 16 boolean host)) (((B 16 boolean h...  [ PASS]
    (bitmatch (u8vector 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1) (((a d...  [ PASS]
    (bitstring->list (bitconstruct (#t boolean)) 8) .................. [ PASS]
    (bitstring->list (bitconstruct (#f boolean)) 8) .................. [ PASS]
    7 tests completed in 19/500 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing boolean --------------------------------------------------


    -- testing reader proc ---------------------------------------------------
    (bitmatch "ABC\x00" ((("A") ((str zterminated-string) bitstring...  [ PASS]
    (bitmatch "ABC" ((("A") ((str zterminated-string) bitstring)) s...  [ PASS]
    (bitmatch "ABC" ((("A") ((str zterminated-string) bitstring)) s...  [ PASS]
    3 tests completed in 13/500 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing reader proc ----------------------------------------------


    -- testing offset --------------------------------------------------------
    (bitmatch "ABCD" (((start offset) ("ABCD") (end offset)) (- end...  [ PASS]
    (bitmatch "X" (((_ 1) (start offset) (_ 6) (end offset) (_ 1)) ...  [ PASS]
    (bitmatch "X" (((_ 3) (rest bitstring)) (bitmatch rest (((start...  [ PASS]
    (bitmatch "X" (((_ 3) (rest bitstring)) (bitmatch rest (((start...  [ PASS]
    4 tests completed in 7/250 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing offset ---------------------------------------------------


    -- testing seek ----------------------------------------------------------
    (bitmatch "ABC" ((("A") (-8 seek) ("ABC")) #t)) .................. [ PASS]
    (bitmatch "ABC" (((8 seek) ("BC")) #t)) .......................... [ PASS]
    (bitmatch "ABC" (((0 seek) ("ABC")) #t)) ......................... [ PASS]
    (bitmatch "ABC" (((0 seek) ("ABC")) #t)) ......................... [ PASS]
    (bitmatch "ABC" ((("A") (-16 seek) (rest bitstring)) #t)) ........ [ PASS]
    (bitmatch "ABC" ((("A") (20 seek) (rest bitstring)) #t)) ......... [ PASS]
    6 tests completed in 3/100 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing seek -----------------------------------------------------

27 subgroups completed in 83/125 seconds.
27 out of 27 (100%) subgroups passed.
-- done testing bitstring ----------------------------------------------------