1 ! Copyright (C) 2010 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: checksums checksums.internet tools.test ;
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
13 : test-data ( -- bytes )
21 [ B{ 34 13 } ] [ test-data internet checksum-bytes ] unit-test