basis/math/geometry/rect/rect-tests.factor

   1
   2 USING: tools.test math.geometry.rect ;
   3
   4 IN: math.geometry.rect.tests
   5
   6 [ T{ rect f { 10 10 } { 20 20 } } ]
   7 [
   8     T{ rect f { 10 10 } { 50 50 } }
   9     T{ rect f { -10 -10 } { 40 40 } }
  10     rect-intersect
  11 ] unit-test
  12
  13 [ T{ rect f { 200 200 } { 0 0 } } ]
  14 [
  15     T{ rect f { 100 100 } { 50 50 } }
  16     T{ rect f { 200 200 } { 40 40 } }
  17     rect-intersect
  18 ] unit-test
  19
  20 [ f ] [
  21     T{ rect f { 100 100 } { 50 50 } }
  22     T{ rect f { 200 200 } { 40 40 } }
  23     intersects?
  24 ] unit-test
  25
  26 [ t ] [
  27     T{ rect f { 100 100 } { 50 50 } }
  28     T{ rect f { 120 120 } { 40 40 } }
  29     intersects?
  30 ] unit-test
  31
  32 [ f ] [
  33     T{ rect f { 1000 100 } { 50 50 } }
  34     T{ rect f { 120 120 } { 40 40 } }
  35     intersects?
  36 ] unit-test
  37