fix some tests broken by previous commit.
							parent
							
								
									ca03896d74
								
							
						
					
					
						commit
						42b37dcc8a
					
				| 
						 | 
				
			
			@ -1,6 +1,7 @@
 | 
			
		|||
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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,4 +1,4 @@
 | 
			
		|||
USING: fry kernel sequences tools.test ;
 | 
			
		||||
USING: fry kernel math.primes.erato.fast sequences tools.test ;
 | 
			
		||||
 | 
			
		||||
{
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,6 +1,7 @@
 | 
			
		|||
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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,6 @@
 | 
			
		|||
USING: assocs compiler.errors compiler.units definitions
 | 
			
		||||
namespaces tools.test words ;
 | 
			
		||||
IN: source-files.errors.tests
 | 
			
		||||
 | 
			
		||||
DEFER: forget-test
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,4 +1,4 @@
 | 
			
		|||
USING: kernel strings tools.test ;
 | 
			
		||||
USING: base85 kernel strings tools.test ;
 | 
			
		||||
 | 
			
		||||
{ t } [ "Hello, world" dup >base85 base85> >string = ] unit-test
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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 2 } } } [ { 1 2 } [ 2array ] 2clump-map ] unit-test
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,7 +1,7 @@
 | 
			
		|||
! 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
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue