math.extras: add test for stirling numbers.

diff --git a/extra/math/extras/extras-tests.factor b/extra/math/extras/extras-tests.factor
index b87e95c01a7812fb7a5cc3b47ec0615a53da9a6a..8daa9726dfc24674af98096b726ded91047eb8d1 100644 (file)
--- a/extra/math/extras/extras-tests.factor
+++ b/extra/math/extras/extras-tests.factor
@@ -4,6 +4,9 @@
 USING: arrays kernel math math.extras math.ranges sequences
 tools.test ;
 
+{ 7 } [ 4 2 stirling ] unit-test
+{ 90 } [ 6 3 stirling ] unit-test
+
 { { 1 -1/2 1/6 0 -1/30 0 1/42 0 -1/30 0 } }
 [ 10 <iota> [ bernoulli ] map ] unit-test