Ignore:
Timestamp:
08/28/09 06:39:58 (11 years ago)
Author:
Kon Lovett
Message:

Dropped use of "ports".

File:
1 edited

Legend:

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

    r15592 r15593  
    11;;;; message-digest-test.scm
     2
     3
     4;; Issues
     5;;
     6;; - Needs many more tests, especially the entire input-port & procedure source stuff.
    27
    38(use test)
     
    3439    (test-assert (pointer? ctx))
    3540    (test-assert (string? result))
    36     (move-memory! ctx bytes result digest-length) )
     41    (move-memory! ctx result digest-length) )
    3742
    3843  (let ((mdp (make-message-digest-primitive chunk-size digest-length init update final 'foo)))
     
    4752      (test 'foo (message-digest-primitive-name mdp))
    4853
    49       (test "6162206364" (byte-string->hexadecimal (message-digest-primitive-apply mdp "ab cd"))) )
     54      (let ((res (message-digest-primitive-apply mdp "ab cd")))
     55        (test "6162206364" (byte-string->hexadecimal res)) ) )
    5056)
Note: See TracChangeset for help on using the changeset viewer.