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

 1! Copyright (C) 2009 Doug Coleman.
 2! See http://factorcode.org/license.txt for BSD license.
 3USING: tools.test project-euler.common ;
 4IN: 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