compiler: Oops, typos in unit tests
							parent
							
								
									d63f8ed682
								
							
						
					
					
						commit
						7c43f71c6d
					
				| 
						 | 
				
			
			@ -348,7 +348,7 @@ cell 4 = [
 | 
			
		|||
] unit-test
 | 
			
		||||
 | 
			
		||||
! Coalesing bug reduced from sequence-parser:take-sequence
 | 
			
		||||
: coalescing-bug-1 ( str a b c -- a b c d )
 | 
			
		||||
: coalescing-bug-1 ( a b c d -- a b c d )
 | 
			
		||||
    3dup {
 | 
			
		||||
        [ 2drop 0 < ]
 | 
			
		||||
        [ [ drop ] 2dip length > ]
 | 
			
		||||
| 
						 | 
				
			
			@ -356,6 +356,6 @@ cell 4 = [
 | 
			
		|||
    } 3|| [ 3drop f ] [ slice boa ] if swap [ [ length ] bi@ ] 2keep ;
 | 
			
		||||
 | 
			
		||||
[ 0 3 f { 1 2 3 } ] [ { 1 2 3 } -10 3 "hello" coalescing-bug-1 ] unit-test
 | 
			
		||||
[ 0 3 f { 1 2 3 } ] [ { 1 2 3 } 0 5 "hello" coalescing-bug-1 ] unit-test
 | 
			
		||||
[ 0 3 f { 1 2 3 } ] [ { 1 2 3 } 0 7 "hello" coalescing-bug-1 ] unit-test
 | 
			
		||||
[ 0 3 f { 1 2 3 } ] [ { 1 2 3 } 3 2 "hello" coalescing-bug-1 ] unit-test
 | 
			
		||||
[ 2 3 T{ slice f "hello" 1 3 } { 1 2 3 } ] [ { 1 2 3 } 1 3 "hello" coalescing-bug-1 ] unit-test
 | 
			
		||||
[ 2 3 T{ slice f 1 3 "hello" } { 1 2 3 } ] [ { 1 2 3 } 1 3 "hello" coalescing-bug-1 ] unit-test
 | 
			
		||||
		Loading…
	
		Reference in New Issue