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