1 ! Copyright (C) 2009 Doug Coleman.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: classes.struct tools.test windows.types ;
4 IN: windows.types.tests
6 [ S{ RECT { right 100 } { bottom 100 } } ]
7 [ { 0 0 } { 100 100 } <RECT> ] unit-test
9 [ S{ RECT { left 100 } { top 100 } { right 200 } { bottom 200 } } ]
10 [ { 100 100 } { 100 100 } <RECT> ] unit-test