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