extra/descriptive/descriptive-tests.factor

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