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

View File

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