basis/checksums/ripemd/ripemd-tests.factor

   1 ! Copyright (C) 2017 Jon Harper.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: checksums checksums.ripemd strings tools.test ;
   4
   5 { B{
   6     0x9c 0x11 0x85 0xa5 0xc5
   7     0xe9 0xfc 0x54 0x61 0x28
   8     0x08 0x97 0x7e 0xe8 0xf5
   9     0x48 0xb2 0x25 0x8d 0x31
  10 } } [ "" ripemd-160 checksum-bytes ] unit-test
  11
  12 { B{
  13     0x0b 0xdc 0x9d 0x2d 0x25
  14     0x6b 0x3e 0xe9 0xda 0xae
  15     0x34 0x7b 0xe6 0xf4 0xdc
  16     0x83 0x5a 0x46 0x7f 0xfe
  17 } } [ "a" ripemd-160 checksum-bytes ] unit-test
  18
  19 { B{
  20     0x8e 0xb2 0x08 0xf7 0xe0
  21     0x5d 0x98 0x7a 0x9b 0x04
  22     0x4a 0x8e 0x98 0xc6 0xb0
  23     0x87 0xf1 0x5a 0x0b 0xfc
  24 } } [ "abc" ripemd-160 checksum-bytes ] unit-test
  25
  26 { B{
  27     0x5d 0x06 0x89 0xef 0x49
  28     0xd2 0xfa 0xe5 0x72 0xb8
  29     0x81 0xb1 0x23 0xa8 0x5f
  30     0xfa 0x21 0x59 0x5f 0x36
  31 } } [ "message digest" ripemd-160 checksum-bytes ] unit-test
  32
  33 { B{
  34     0xf7 0x1c 0x27 0x10 0x9c
  35     0x69 0x2c 0x1b 0x56 0xbb
  36     0xdc 0xeb 0x5b 0x9d 0x28
  37     0x65 0xb3 0x70 0x8d 0xbc
  38 } } [ "abcdefghijklmnopqrstuvwxyz" ripemd-160 checksum-bytes ] unit-test
  39
  40 { B{
  41     0x12 0xa0 0x53 0x38 0x4a
  42     0x9c 0x0c 0x88 0xe4 0x05
  43     0xa0 0x6c 0x27 0xdc 0xf4
  44     0x9a 0xda 0x62 0xeb 0x2b
  45 } } [ "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" ripemd-160 checksum-bytes ] unit-test
  46
  47 { B{
  48     0xb0 0xe2 0x0b 0x6e 0x31
  49     0x16 0x64 0x02 0x86 0xed
  50     0x3a 0x87 0xa5 0x71 0x30
  51     0x79 0xb2 0x1f 0x51 0x89
  52 } } [ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" ripemd-160 checksum-bytes ] unit-test
  53
  54 { B{
  55     0x9b 0x75 0x2e 0x45 0x57
  56     0x3d 0x4b 0x39 0xf4 0xdb
  57     0xd3 0x32 0x3c 0xab 0x82
  58     0xbf 0x63 0x32 0x6b 0xfb
  59 } } [ "12345678901234567890123456789012345678901234567890123456789012345678901234567890" ripemd-160 checksum-bytes ] unit-test
  60
  61
  62 { B{
  63 0x52 0x78 0x32 0x43 0xc1
  64 0x69 0x7b 0xdb 0xe1 0x6d
  65 0x37 0xf9 0x7f 0x68 0xf0
  66 0x83 0x25 0xdc 0x15 0x28
  67 } } [ 1000000 CHAR: a <string> ripemd-160 checksum-bytes ] unit-test
  68
  69
  70