extra/descriptive/descriptive-tests.factor

   1 USING: descriptive kernel math tools.test continuations prettyprint io.streams.string see\r
   2 math.ratios ;\r
   3 IN: descriptive.tests\r
   4 \r
   5 DESCRIPTIVE: divide ( num denom -- fraction ) / ;\r
   6 \r
   7 [ 3 ] [ 9 3 divide ] unit-test\r
   8 \r
   9 [\r
  10     T{ descriptive-error f\r
  11         { { "num" 3 } { "denom" 0 } }\r
  12         T{ division-by-zero f 3 }\r
  13         divide\r
  14     }\r
  15 ] [\r
  16     [ 3 0 divide ] [ ] recover\r
  17 ] unit-test\r
  18 \r
  19 [ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE: divide ( num denom -- fraction ) / ;\n" ]\r
  20 [ \ divide [ see ] with-string-writer ] unit-test\r
  21 \r
  22 DESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;\r
  23 \r
  24 [ 3 ] [ 9 3 divide* ] unit-test\r
  25 \r
  26 [\r
  27     T{ descriptive-error f\r
  28         { { "num" 3 } { "denom" 0 } }\r
  29         T{ division-by-zero f 3 }\r
  30         divide*\r
  31     }\r
  32 ] [ [ 3 0 divide* ] [ ] recover ] unit-test\r
  33 \r
  34 [ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;\n" ] [ \ divide* [ see ] with-string-writer ] unit-test\r