Changeset 16139 in project for release/4/byte-blob/trunk/tests


Ignore:
Timestamp:
10/07/09 04:13:34 (11 years ago)
Author:
Ivan Raikov
Message:

save

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/byte-blob/trunk/tests/run.scm

    r16125 r16139  
    55(define a (byte-blob-cons 1 (byte-blob-cons 2 (byte-blob-empty))))
    66(define b (byte-blob-cons 3 (byte-blob-cons 4 (byte-blob-empty))))
    7 (define c (list->byte-blob 7 8 9))
    8 
     7(define c (list->byte-blob (list 7 8 9)))
     8(define d (byte-blob-replicate 10 6))
    99   
    1010
    1111
    1212(test-group "byte-blob test"
     13
     14            (test (sprintf "byte-blob-replicate")
     15                  '(6 6 6 6 6 6 6 6 6 6)
     16                  (byte-blob->list d))
    1317
    1418            (test (sprintf "byte-blob-cons" )
Note: See TracChangeset for help on using the changeset viewer.