factor/basis/checksums/internet/internet-tests.factor

! Copyright (C) 2010 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: checksums checksums.internet tools.test ;
IN: checksums.internet.tests

{ B{ 255 255 } } [ { } internet checksum-bytes ] unit-test
{ B{ 254 255 } } [ { 1 } internet checksum-bytes ] unit-test
{ B{ 254 253 } } [ { 1 2 } internet checksum-bytes ] unit-test
{ B{ 251 253 } } [ { 1 2 3 } internet checksum-bytes ] unit-test

: test-data ( -- bytes )
    B{
        0x00 0x01
        0xf2 0x03
        0xf4 0xf5
        0xf6 0xf7
    } ;

{ B{ 34 13 } } [ test-data internet checksum-bytes ] unit-test