source: project/release/4/message-digest/trunk/tests/run.scm @ 15592

Last change on this file since 15592 was 15592, checked in by Kon Lovett, 11 years ago

Save

File size: 1.5 KB
Line 
1;;;; message-digest-test.scm
2
3(use test)
4(use message-digest)
5(use lolevel)
6
7;;
8
9(test-group "Message Digest Aux"
10
11        (test '("foo" "bar" "baz") (byte-string->substring-list "foobarbaz" 3))
12        (test '("oob" "arb" "az") (byte-string->substring-list "foobarbaz" 3 1))
13        (test "6162206364" (byte-string->hexadecimal "ab cd"))
14)
15
16(test-group "Message Digest Prim"
17
18  (define digest-length 5)
19  (define chunk-size 10)
20
21  (define (init ctx)
22    #;(printf "  Init Ctx: ~S~%" ctx)
23    (test-assert (pointer? ctx)) )
24
25  (define (update ctx bytes count)
26    #;(printf "Update Ctx: ~S Bytes: ~S Count: ~S~%" ctx bytes count)
27    (test-assert (pointer? ctx))
28    (test-assert (string? bytes))
29    (test digest-length count)
30    (move-memory! bytes ctx count) )
31
32  (define (final ctx result)
33    #;(printf " Final Ctx: ~S Result: ~S~%" ctx result)
34    (test-assert (pointer? ctx))
35    (test-assert (string? result))
36    (move-memory! ctx bytes result digest-length) )
37
38  (let ((mdp (make-message-digest-primitive chunk-size digest-length init update final 'foo)))
39
40      (test-assert (message-digest-primitive? mdp))
41
42      (test chunk-size (message-digest-primitive-context-info mdp))
43      (test digest-length (message-digest-primitive-digest-length mdp))
44      (test init (message-digest-primitive-init mdp))
45      (test update (message-digest-primitive-update mdp))
46      (test final (message-digest-primitive-final mdp))
47      (test 'foo (message-digest-primitive-name mdp))
48
49      (test "6162206364" (byte-string->hexadecimal (message-digest-primitive-apply mdp "ab cd"))) )
50)
Note: See TracBrowser for help on using the repository browser.