fix some tests broken by previous commit.

windows-high-dpi
John Benediktsson 2018-02-15 13:16:39 -08:00
parent ca03896d74
commit 42b37dcc8a
7 changed files with 8 additions and 4 deletions

View File

@ -1,6 +1,7 @@
USING: arrays checksums checksums.common checksums.sha USING: arrays checksums checksums.common checksums.sha
checksums.sha.private io.encodings.binary io.streams.byte-array checksums.sha.private io.encodings.binary io.streams.byte-array
kernel math.parser sequences tools.test random ; kernel math.parser sequences tools.test random ;
IN: checksums.sha.tests
{ "a9993e364706816aba3e25717850c26c9cd0d89d" } [ "abc" sha1 checksum-bytes bytes>hex-string ] unit-test { "a9993e364706816aba3e25717850c26c9cd0d89d" } [ "abc" sha1 checksum-bytes bytes>hex-string ] unit-test
{ "84983e441c3bd26ebaae4aa1f95129e5e54670f1" } [ "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" sha1 checksum-bytes bytes>hex-string ] unit-test { "84983e441c3bd26ebaae4aa1f95129e5e54670f1" } [ "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" sha1 checksum-bytes bytes>hex-string ] unit-test

View File

@ -1,4 +1,4 @@
USING: fry kernel sequences tools.test ; USING: fry kernel math.primes.erato.fast sequences tools.test ;
{ {

View File

@ -1,6 +1,7 @@
USING: continuations kernel math math.functions math.order USING: continuations kernel math math.functions math.order
math.private namespaces prettyprint prettyprint.config random math.private namespaces prettyprint prettyprint.config random
sequences tools.test ; sequences tools.test ;
IN: math.integers.tests
10 number-base [ 10 number-base [
[ "-8" ] [ -8 unparse ] unit-test [ "-8" ] [ -8 unparse ] unit-test

View File

@ -1,5 +1,6 @@
USING: assocs compiler.errors compiler.units definitions USING: assocs compiler.errors compiler.units definitions
namespaces tools.test words ; namespaces tools.test words ;
IN: source-files.errors.tests
DEFER: forget-test DEFER: forget-test

View File

@ -1,4 +1,4 @@
USING: kernel strings tools.test ; USING: base85 kernel strings tools.test ;
{ t } [ "Hello, world" dup >base85 base85> >string = ] unit-test { t } [ "Hello, world" dup >base85 base85> >string = ] unit-test

View File

@ -1,4 +1,5 @@
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 } [ 2array ] 2clump-map ] unit-test
{ { { 1 2 } } } [ { 1 2 } [ 2array ] 2clump-map ] unit-test { { { 1 2 } } } [ { 1 2 } [ 2array ] 2clump-map ] unit-test

View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 John Benediktsson ! Copyright (C) 2008 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 { { V{ } } } [ { } 1 binpack ] unit-test