basis/checksums/interleave/interleave-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test checksums.interleave checksums.sha ;
   4 IN: checksums.interleave.tests
   5
   6 [
   7     B{
   8         59 155 253 205 75 163 94 115 208 42 227 92 181 19 60 232
   9         119 65 178 131 210 48 241 230 204 216 30 156 4 215 80 84 93
  10         206 44 1 18 128 150 153
  11     }
  12 ] [
  13     B{
  14         102 83 241 12 26 250 181 76 97 200 37 117 168 74 254 48 216
  15         170 26 58 150 150 179 24 153 146 191 225 203 127 166 167
  16     }
  17     sha1 interleaved-checksum
  18 ] unit-test
  19