10 lines
352 B
Factor
10 lines
352 B
Factor
|
! Copyright (C) 2010 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: tools.test slots.syntax ;
|
||
|
|
IN: slots.syntax.tests
|
||
|
|
|
||
|
|
TUPLE: slot-test a b c ;
|
||
|
|
|
||
|
|
[ { 1 2 3 } ] [ T{ slot-test f 1 2 3 } slots{ a b c } ] unit-test
|
||
|
|
[ { 3 } ] [ T{ slot-test f 1 2 3 } slots{ c } ] unit-test
|
||
|
|
[ { } ] [ T{ slot-test f 1 2 3 } slots{ } ] unit-test
|