steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add unit tests for ui.gadgets.glass

db4
Slava Pestov 2009-02-18 21:01:27 -06:00
parent 742aa5ced7
commit 277a827039
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/ui/gadgets/glass/glass-tests.factor Normal file
View File

@ -0,0 +1,17 @@
IN: ui.gadgets.glass.tests
USING: tools.test ui.gadgets.glass ui.gadgets.worlds ui.gadgets
math.rectangles namespaces accessors models ;
<gadget> "" f <model> <world>
{ 1000 1000 } >>dim
"w" set
[ ] [ <gadget> "g" set ] unit-test
[ ] [ "w" get "g" get { 0 0 } { 100 100 } <rect> show-glass ] unit-test
[ ] [ "g" get hide-glass ] unit-test
[ f ] [ "g" get parent>> ] unit-test
[ t ] [ "w" get layers>> empty? ] unit-test