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         HEX: 00 HEX: 01
  16         HEX: f2 HEX: 03
  17         HEX: f4 HEX: f5
  18         HEX: f6 HEX: f7
  19     } ;
  20
  21 [ B{ 34 13 } ] [ test-data internet checksum-bytes ] unit-test
  22