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     { 0 0 } { 1 1 } <rect>
   8     { 30 30 }
   9     { 100 100 }
  10     popup-rect
  11 ] unit-test
  12
  13 [ T{ rect f { 10 21 } { 30 30 } } ] [
  14     { 10 20 } { 1 1 } <rect>
  15     { 30 30 }
  16     { 100 100 }
  17     popup-rect
  18 ] unit-test
  19
  20 [ T{ rect f { 10 30 } { 30 30 } } ] [
  21     { 10 20 } { 1 10 } <rect>
  22     { 30 30 }
  23     { 100 100 }
  24     popup-rect
  25 ] unit-test
  26
  27 [ T{ rect f { 20 20 } { 80 30 } } ] [
  28     { 40 10 } { 1 10 } <rect>
  29     { 80 30 }
  30     { 100 100 }
  31     popup-rect
  32 ] unit-test
  33
  34 [ T{ rect f { 50 20 } { 50 50 } } ] [
  35     { 50 70 } { 0 0 } <rect>
  36     { 50 50 }
  37     { 100 100 }
  38     popup-rect
  39 ] unit-test
  40
  41 [ T{ rect f { 0 20 } { 50 50 } } ] [
  42     { -50 70 } { 0 0 } <rect>
  43     { 50 50 }
  44     { 100 100 }
  45     popup-rect
  46 ] unit-test
  47
  48 [ T{ rect f { 0 50 } { 50 50 } } ] [
  49     { 0 50 } { 0 0 } <rect>
  50     { 50 60 }
  51     { 100 100 }
  52     popup-rect
  53 ] unit-test