extra/project-euler/common/common-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test project-euler.common ;
   4 IN: project-euler.common.tests
   5
   6 [ 4 ] [ -1000 number-length ] unit-test
   7 [ 3 ] [ -999 number-length ] unit-test
   8 [ 3 ] [ -100 number-length ] unit-test
   9 [ 2 ] [ -99 number-length ] unit-test
  10 [ 1 ] [ -9 number-length ] unit-test
  11 [ 1 ] [ -1 number-length ] unit-test
  12 [ 1 ] [ 0 number-length ] unit-test
  13 [ 1 ] [ 9 number-length ] unit-test
  14 [ 2 ] [ 99 number-length ] unit-test
  15 [ 3 ] [ 100 number-length ] unit-test
  16 [ 3 ] [ 999 number-length ] unit-test
  17 [ 4 ] [ 1000 number-length ] unit-test