extra/dice/dice-tests.factor

   1 USING: dice kernel math tools.test ;
   2
   3 { [ 1 4 random-roll ] } [ "1d4" roll-quot ] unit-test
   4 { [ 1 4 random-roll 3 + ] } [ "1d4+3" roll-quot ] unit-test
   5 { [ 15 45 random-roll ] } [ "15d45" roll-quot ] unit-test