From 29d4908ff51c1ac78bc1fef60e247ba613bc5b3e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 16 Aug 2015 10:33:52 -0700 Subject: [PATCH] ui.gadgets: move some buttons-tests to toolbar-tests. --- basis/ui/gadgets/buttons/buttons-tests.factor | 21 ++----------------- basis/ui/gadgets/toolbar/toolbar-tests.factor | 21 +++++++++++++++++++ 2 files changed, 23 insertions(+), 19 deletions(-) create mode 100644 basis/ui/gadgets/toolbar/toolbar-tests.factor diff --git a/basis/ui/gadgets/buttons/buttons-tests.factor b/basis/ui/gadgets/buttons/buttons-tests.factor index a8e864a259..c94f7611ee 100644 --- a/basis/ui/gadgets/buttons/buttons-tests.factor +++ b/basis/ui/gadgets/buttons/buttons-tests.factor @@ -1,24 +1,7 @@ -USING: ui.commands ui.gadgets.buttons ui.gadgets.labels -ui.gadgets tools.test namespaces sequences kernel models -accessors ; +USING: accessors models namespaces tools.test ui.gadgets +ui.gadgets.buttons ; IN: ui.gadgets.buttons.tests -TUPLE: foo-gadget ; - -: com-foo-a ( -- ) ; - -: com-foo-b ( -- ) ; - -\ foo-gadget "toolbar" f { - { f com-foo-a } - { f com-foo-b } -} define-command-map - -T{ foo-gadget } "t" set - -{ 2 } [ "t" get children>> length ] unit-test -{ "Foo A" } [ "t" get gadget-child gadget-child string>> ] unit-test - { } [ 2 { { 0 "atheist" } diff --git a/basis/ui/gadgets/toolbar/toolbar-tests.factor b/basis/ui/gadgets/toolbar/toolbar-tests.factor new file mode 100644 index 0000000000..67751dbe9b --- /dev/null +++ b/basis/ui/gadgets/toolbar/toolbar-tests.factor @@ -0,0 +1,21 @@ +USING: accessors namespaces sequences tools.test ui.commands +ui.gadgets ui.gadgets.toolbar ; +IN: ui.gadgets.toolbar.tests + +TUPLE: foo-gadget ; + +: com-foo-a ( -- ) ; + +: com-foo-b ( -- ) ; + +\ foo-gadget "toolbar" f { + { f com-foo-a } + { f com-foo-b } +} define-command-map + +T{ foo-gadget } "t" set + +{ 2 } [ "t" get children>> length ] unit-test +{ "Foo A" } [ "t" get gadget-child gadget-child string>> ] unit-test + +