compiler: Oops, typos in unit tests

db4
Slava Pestov 2009-07-31 22:33:02 -05:00
parent d63f8ed682
commit 7c43f71c6d
1 changed files with 3 additions and 3 deletions

View File

@ -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