]> gitweb.factorcode.org Git - factor.git/blob - basis/xmode/rules/rules-tests.factor
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
[factor.git] / basis / xmode / rules / rules-tests.factor
1 IN: xmode.rules.tests
2 USING: xmode.rules tools.test ;
3
4 { { 1 2 3 } } [ f { 1 2 3 } ?push-all ] unit-test
5 { { 1 2 3 } } [ { 1 2 3 } f ?push-all ] unit-test
6 { V{ 1 2 3 4 5 } } [ { 1 2 3 } { 4 5 } ?push-all ] unit-test