22 lines
473 B
Factor
22 lines
473 B
Factor
|
IN: ui.gadgets.tables.tests
|
||
|
|
USING: ui.gadgets.tables ui.gadgets.scrollers accessors
|
||
|
|
models namespaces tools.test kernel ;
|
||
|
|
|
||
|
|
SINGLETON: test-renderer
|
||
|
|
|
||
|
|
M: test-renderer row-columns drop ;
|
||
|
|
|
||
|
|
M: test-renderer column-titles drop { "First" "Last" } ;
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
{
|
||
|
|
{ "Britney" "Spears" }
|
||
|
|
{ "Justin" "Timberlake" }
|
||
|
|
{ "Don" "Stewart" }
|
||
|
|
} <model> test-renderer <table>
|
||
|
|
"table" set
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
"table" get <scroller> "scroller" set
|
||
|
|
] unit-test
|