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

infix: add a test for nested local scopes.

char-rename
John Benediktsson 2017-03-16 15:49:07 -07:00
parent 2b23d75544
commit aa05fca37f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/infix/infix-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Philipp Brüschweiler ! Copyright (C) 2009 Philipp Brüschweiler
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: infix infix.private kernel locals math math.functions USING: infix infix.private kernel locals math math.functions
tools.test ; sequences tools.test ;
IN: infix.tests IN: infix.tests
{ 0 } [ [infix 0 infix] ] unit-test { 0 } [ [infix 0 infix] ] unit-test
@ -54,3 +54,11 @@ IN: infix.tests
INFIX:: foo ( x y -- z ) x**2-abs(y) ; INFIX:: foo ( x y -- z ) x**2-abs(y) ;
{ 194 } [ 15 31 foo ] unit-test { 194 } [ 15 31 foo ] unit-test
{ "foobar" } [
[let "foo" :> s
[let "bar" :> t
[infix append(s, t) infix]
]
]
] unit-test