[Chicken-janitors] #471: message-digest tests fail

[Chicken Trac]

#471: message-digest tests fail
------------------------+---------------------------------------------------
 Reporter:  ckeen       |       Owner:  kon  
     Type:  defect      |      Status:  new  
 Priority:  major       |   Milestone:  4.7.0
Component:  extensions  |     Version:  4.6.x
 Keywords:              |  
------------------------+---------------------------------------------------
 The first one does fail with older chickens as well (and the tagged
 releases):

 {{{
 -- testing Message Digest u32-be Source
 --------------------------------------
 (message-digest-update-u32-be md 2729624274.0) .......................
 [ERROR]

 Error: bad argument type - not an integer: 2729624274.0
 (finalize-message-digest md) ......................................... [
 FAIL]
     expected "a2b2c2d200" but got "0000000000"
 2 tests completed in 0.007 seconds.
 1 failure (50.0%).
 1 error (50.0%).
 0 out of 2 (0%) tests passed.
 -- done testing Message Digest u32-be Source
 ---------------------------------
 }}}

 From my understanding the input is too large for a fixnum. Did this ever
 work?


 This one passes on older chickens but with a git experimental it fails:
 {{{
 -- testing Message Digest Make (DEPRECATED)
 ----------------------------------
 (make-binary-message-digest simple-src make-context digest-leng... ...
 [ERROR]

 Error: unbound variable: make-context
     (make-binary-message-digest
       simple-src
       make-context
       digest-length
       init
       update
       final)
 (make-message-digest simple-src make-context digest-length init... ...
 [ERROR]

 Error: unbound variable: make-context
 2 tests completed in 0.002 seconds.
 2 errors (100%).
 0 out of 2 (0%) tests passed.
 -- done testing Message Digest Make (DEPRECATED)
 -----------------------------
 }}}

 Hope this helps...

 Christian

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/471>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.