basis/math/rectangles/rectangles-tests.factor

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