extra/dice/dice-tests.factor

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