basis/checksums/internet/internet-tests.factor

   1 ! Copyright (C) 2010 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: checksums checksums.internet tools.test ;
   5
   6 IN: checksums
   7
   8 [ B{ 255 255 } ] [ { } internet checksum-bytes ] unit-test
   9 [ B{ 254 255 } ] [ { 1 } internet checksum-bytes ] unit-test
  10 [ B{ 254 253 } ] [ { 1 2 } internet checksum-bytes ] unit-test
  11 [ B{ 251 253 } ] [ { 1 2 3 } internet checksum-bytes ] unit-test
  12
  13 : test-data ( -- bytes )
  14     B{
  15         0x00 0x01
  16         0xf2 0x03
  17         0xf4 0xf5
  18         0xf6 0xf7
  19     } ;
  20
  21 [ B{ 34 13 } ] [ test-data internet checksum-bytes ] unit-test
  22