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

http://github.com/abeaumont/factor · Factor · 17 lines · 14 code · 1 blank · 2 comment · 0 complexity · 820d0106806ead4dad14401b904712e5 MD5 · raw file 

    

  1. ! Copyright (C) 2009 Doug Coleman.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: tools.test project-euler.common ;
    4. 

  4. IN: project-euler.common.tests
    5. 

  5. 

  6. [ 4 ] [ -1000 number-length ] unit-test
    7. 

  7. [ 3 ] [ -999 number-length ] unit-test
    8. 

  8. [ 3 ] [ -100 number-length ] unit-test
    9. 

  9. [ 2 ] [ -99 number-length ] unit-test
    10. 

  10. [ 1 ] [ -9 number-length ] unit-test
    11. 

  11. [ 1 ] [ -1 number-length ] unit-test
    12. 

  12. [ 1 ] [ 0 number-length ] unit-test
    13. 

  13. [ 1 ] [ 9 number-length ] unit-test
    14. 

  14. [ 2 ] [ 99 number-length ] unit-test
    15. 

  15. [ 3 ] [ 100 number-length ] unit-test
    16. 

  16. [ 3 ] [ 999 number-length ] unit-test
    17. 

  17. [ 4 ] [ 1000 number-length ] unit-test
    18.