steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

locals: use a test tuple instead of a slice.

db4
John Benediktsson 2015-07-16 15:34:36 -07:00
parent 37f7fa95ca
commit 242d18d95e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/locals/locals-tests.factor
View File

@ -273,10 +273,12 @@ M:: sequence method-with-locals ( a -- y ) a reverse ;
{ H{ { 10 "a" } { 20 "b" } { 30 "c" } } } { H{ { 10 "a" } { 20 "b" } { 30 "c" } } }
[ 10 20 30 [| a b c | H{ { a "a" } { b "b" } { c "c" } } ] call ] unit-test [ 10 20 30 [| a b c | H{ { a "a" } { b "b" } { c "c" } } ] call ] unit-test
{ T{ slice f 0 3 "abc" } } TUPLE: test-tuple a b c ;
[ 0 3 "abc" [| from to seq | T{ slice f from to seq } ] call ] unit-test
{ 3 1 } [| from to seq | T{ slice f from to seq } ] must-infer-as { T{ test-tuple f 0 3 "abc" } }
[ 0 3 "abc" [| a b c | T{ test-tuple f a b c } ] call ] unit-test
{ 3 1 } [| a b c | T{ test-tuple f a b c } ] must-infer-as
ERROR: punned-class x ; ERROR: punned-class x ;