basis/math/rectangles/positioning/positioning-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test math.rectangles math.rectangles.positioning ;
   4 IN: math.rectangles.positioning.tests
   5
   6 [ T{ rect f { 0 1 } { 30 30 } } ] [
   7     T{ rect f { 0 0 } { 1 1 } }
   8     { 30 30 }
   9     { 100 100 }
  10     popup-rect
  11 ] unit-test
  12
  13 [ T{ rect f { 10 21 } { 30 30 } } ] [
  14     T{ rect f { 10 20 } { 1 1 } }
  15     { 30 30 }
  16     { 100 100 }
  17     popup-rect
  18 ] unit-test
  19
  20 [ T{ rect f { 10 30 } { 30 30 } } ] [
  21     T{ rect f { 10 20 } { 1 10 } }
  22     { 30 30 }
  23     { 100 100 }
  24     popup-rect
  25 ] unit-test
  26
  27 [ T{ rect f { 20 20 } { 80 30 } } ] [
  28     T{ rect f { 40 10 } { 1 10 } }
  29     { 80 30 }
  30     { 100 100 }
  31     popup-rect
  32 ] unit-test
  33
  34 [ T{ rect f { 50 20 } { 50 50 } } ] [
  35     T{ rect f { 50 70 } { 0 0 } }
  36     { 50 50 }
  37     { 100 100 }
  38     popup-rect
  39 ] unit-test
  40
  41 [ T{ rect f { 0 20 } { 50 50 } } ] [
  42     T{ rect f { -50 70 } { 0 0 } }
  43     { 50 50 }
  44     { 100 100 }
  45     popup-rect
  46 ] unit-test
  47
  48 [ T{ rect f { 0 50 } { 50 50 } } ] [
  49     T{ rect f { 0 50 } { 0 0 } }
  50     { 50 60 }
  51     { 100 100 }
  52     popup-rect
  53 ] unit-test
  54
  55 [ T{ rect f { 0 90 } { 10 10 } } ] [
  56     T{ rect f { 0 1000 } { 0 0 } }
  57     { 10 10 }
  58     { 100 100 }
  59     popup-rect
  60 ] unit-test