USING: arrays checksums checksums.common checksums.sha
checksums.sha.private io.encodings.binary io.streams.byte-array
kernel math.parser sequences tools.test random ;
+IN: checksums.sha.tests
{ "a9993e364706816aba3e25717850c26c9cd0d89d" } [ "abc" sha1 checksum-bytes bytes>hex-string ] unit-test
{ "84983e441c3bd26ebaae4aa1f95129e5e54670f1" } [ "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" sha1 checksum-bytes bytes>hex-string ] unit-test
-USING: fry kernel sequences tools.test ;
+USING: fry kernel math.primes.erato.fast sequences tools.test ;
{
USING: continuations kernel math math.functions math.order
math.private namespaces prettyprint prettyprint.config random
sequences tools.test ;
+IN: math.integers.tests
10 number-base [
[ "-8" ] [ -8 unparse ] unit-test
USING: assocs compiler.errors compiler.units definitions
namespaces tools.test words ;
+IN: source-files.errors.tests
DEFER: forget-test
-USING: kernel strings tools.test ;
+USING: base85 kernel strings tools.test ;
{ t } [ "Hello, world" dup >base85 base85> >string = ] unit-test
-USING: arrays kernel math math.functions sequences tools.test ;
+USING: arrays grouping.extras kernel math math.functions
+sequences tools.test ;
{ { } } [ { 1 } [ 2array ] 2clump-map ] unit-test
{ { { 1 2 } } } [ { 1 2 } [ 2array ] 2clump-map ] unit-test
! Copyright (C) 2008 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
-USING: kernel tools.test sequences ;
+USING: kernel math.binpack sequences tools.test ;
{ { V{ } } } [ { } 1 binpack ] unit-test