Changeset 20990 in project


Ignore:
Timestamp:
10/24/10 19:23:45 (11 years ago)
Author:
sjamaan
Message:

sha1: Check for test failure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sha1/trunk/tests/run.scm

    r19055 r20990  
    2424        (description (sprintf "Individual byte ~A[#x~X]~A" leading byte trailing)))
    2525    (test description expected-digest (sha1-digest input))))
     26
     27(test-begin "SHA1")
    2628
    2729(test-group "SHA1 Strings"
     
    560562    (digest-bit-test 63 #x02 0 "d229d9d61e24b80cb32373bb3362a3bdc7dcce73")
    561563    (digest-bit-test 63 #x01 0 "aae81062811edfd2af3081941d667fb7033dce80")))
     564
     565(test-end)
     566
     567(unless (zero? (test-failure-count)) (exit 1))
Note: See TracChangeset for help on using the changeset viewer.