Changeset 21083 in project


Ignore:
Timestamp:
10/26/10 04:54:52 (11 years ago)
Author:
Kon Lovett
Message:

Forgot to copy over the newer test.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/message-digest/tags/2.3.2/tests/run.scm

    r21079 r21083  
    1717(define context-size 10)
    1818
    19 (test-group "Message Digest Aux"
    20         (test simple-res (byte-string->hexadecimal simple-src))
    21         (test (substring simple-res 4 6) (byte-string->hexadecimal simple-src 2 3))
     19;Tests defaults
     20(test-group "Message Digest Chunk Read"
     21  (let ((siz (message-digest-chunk-size))
     22        (in (open-input-file "alpha.txt")))
     23    (let ((rdr ((message-digest-chunk-read-maker) in)))
     24      (let ((res (rdr)))
     25        (test-assert "First chunk type" (blob? res))
     26        (test "First chunk size" 26 (blob-size res)) )
     27      (test-assert "No more chunk" (not (rdr))) )
     28    (close-input-port in) )
    2229)
    2330
Note: See TracChangeset for help on using the changeset viewer.