basis/math/rectangles/rectangles-tests.factor

   1 USING: tools.test math.rectangles prettyprint io.streams.string
   2 kernel accessors ;
   3 IN: math.rectangles.tests
   4
   5 { RECT: { 10 10 } { 20 20 } }
   6 [
   7     RECT: { 10 10 } { 50 50 }
   8     RECT: { -10 -10 } { 40 40 }
   9     rect-intersect
  10 ] unit-test
  11
  12 { RECT: { 200 200 } { 0 0 } }
  13 [
  14     RECT: { 100 100 } { 50 50 }
  15     RECT: { 200 200 } { 40 40 }
  16     rect-intersect
  17 ] unit-test
  18
  19 { f } [
  20     RECT: { 100 100 } { 50 50 }
  21     RECT: { 200 200 } { 40 40 }
  22     contains-rect?
  23 ] unit-test
  24
  25 { t } [
  26     RECT: { 100 100 } { 50 50 }
  27     RECT: { 120 120 } { 40 40 }
  28     contains-rect?
  29 ] unit-test
  30
  31 { f } [
  32     RECT: { 1000 100 } { 50 50 }
  33     RECT: { 120 120 } { 40 40 }
  34     contains-rect?
  35 ] unit-test
  36
  37 { RECT: { 10 20 } { 20 20 } } [
  38     {
  39         { 20 20 }
  40         { 10 40 }
  41         { 30 30 }
  42     } rect-containing
  43 ] unit-test
  44
  45 ! Prettyprint for RECT: didn't do nesting check properly
  46 { } [ [ RECT: f f dup >>dim . ] with-string-writer drop ] unit-test