]> gitweb.factorcode.org Git - factor.git/blob - basis/ui/gadgets/search-tables/search-tables-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / basis / ui / gadgets / search-tables / search-tables-tests.factor
1 IN: ui.gadgets.search-tables.tests
2 USING: ui.gadgets.search-tables ui.gadgets.tables ui.gadgets models
3 arrays sequences tools.test ;
4
5 [ [ second ] <search-table> ] must-infer
6
7 { t } [ f <model> trivial-renderer [ second ] <search-table> pref-dim pair? ] unit-test