basis/checksums/internet/internet-tests.factor

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