basis/checksums/md5/md5-tests.factor

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