extra/math/primes/twins/twins-tests.factor

   1 ! Copyright (C) 2012 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: math.primes.twins tools.test ;
   4 IN: math.primes.twins.tests
   5
   6 { { } } [ 3 twin-primes-upto ] unit-test
   7 { { V{ 3 5 } V{ 5 7 } V{ 11 13 } } } [ 13 twin-primes-upto ] unit-test
   8
   9 { t } [ 3 5 twin-primes? ] unit-test
  10 { f } [ 2 4 twin-primes? ] unit-test
  11 { f } [ 3 7 twin-primes? ] unit-test