1 ! Copyright (C) 2010 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
3 USING: checksums checksums.internet tools.test ;
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
16 } internet checksum-bytes