basis/checksums/md5/md5-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: byte-arrays checksums checksums.common checksums.md5
   4 io.encodings.binary io.streams.byte-array kernel math.parser
   5 sequences tools.test ;
   6
   7 { "d41d8cd98f00b204e9800998ecf8427e" } [ "" >byte-array md5 checksum-bytes bytes>hex-string ] unit-test
   8 { "0cc175b9c0f1b6a831c399e269772661" } [ "a" >byte-array md5 checksum-bytes bytes>hex-string ] unit-test
   9 { "900150983cd24fb0d6963f7d28e17f72" } [ "abc" >byte-array md5 checksum-bytes bytes>hex-string ] unit-test
  10 { "f96b697d7cb7938d525a2f31aaf161d0" } [ "message digest" >byte-array md5 checksum-bytes bytes>hex-string ] unit-test
  11 { "c3fcd3d76192e4007dfb496cca67e13b" } [ "abcdefghijklmnopqrstuvwxyz" >byte-array md5 checksum-bytes bytes>hex-string ] unit-test
  12 { "d174ab98d277d9f5a5611c2c9f419d9f" } [ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" >byte-array md5 checksum-bytes bytes>hex-string ] unit-test
  13 { "57edf4a22be3c955ac49da2e2107b67a" } [ "12345678901234567890123456789012345678901234567890123456789012345678901234567890" >byte-array md5 checksum-bytes bytes>hex-string ] unit-test
  14
  15
  16 {
  17     t
  18 } [
  19     <md5-state> "asdf" add-checksum-bytes
  20     [ get-checksum ] [ get-checksum ] bi =
  21 ] unit-test
  22
  23 {
  24     t
  25 } [
  26     <md5-state> "" add-checksum-bytes
  27     [ get-checksum ] [ get-checksum ] bi =
  28 ] unit-test
  29
  30 {
  31     t
  32 } [
  33     <md5-state> "asdf" binary <byte-reader> add-checksum-stream
  34     [ get-checksum ] [ get-checksum ] bi =
  35 ] unit-test
  36
  37 {
  38     t
  39 } [
  40     { "abcd" "efg" } md5 checksum-lines length 16 =
  41 ] unit-test