1 USING: descriptive kernel math tools.test continuations prettyprint io.streams.string see
5 DESCRIPTIVE: divide ( num denom -- fraction ) / ;
7 { 3 } [ 9 3 divide ] unit-test
10 T{ descriptive-error f
11 { { "num" 3 } { "denom" 0 } }
12 T{ division-by-zero f 3 }
16 [ 3 0 divide ] [ ] recover
19 { "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE: divide ( num denom -- fraction ) / ;\n" }
20 [ \ divide [ see ] with-string-writer ] unit-test
22 DESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;
24 { 3 } [ 9 3 divide* ] unit-test
27 T{ descriptive-error f
28 { { "num" 3 } { "denom" 0 } }
29 T{ division-by-zero f 3 }
32 } [ [ 3 0 divide* ] [ ] recover ] unit-test
34 { "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;\n" } [ \ divide* [ see ] with-string-writer ] unit-test