2013-05-04 20:08:48 -04:00
|
|
|
! Copyright (C) 2013 Loryn Jenkins.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2013-05-06 11:34:32 -04:00
|
|
|
USING: kernel math math.combinators tools.test ;
|
2013-05-04 20:08:48 -04:00
|
|
|
IN: math.combinators.tests
|
|
|
|
|
|
|
|
|
|
[ 0 ] [ -3 [ drop 0 ] when-negative ] unit-test
|
|
|
|
|
[ -2 ] [ -3 [ 1 + ] when-negative ] unit-test
|
|
|
|
|
[ 2 ] [ 2 [ 0 ] when-negative ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 0 ] [ 3 [ drop 0 ] when-positive ] unit-test
|
|
|
|
|
[ 4 ] [ 3 [ 1 + ] when-positive ] unit-test
|
2013-05-06 11:34:32 -04:00
|
|
|
[ -2 ] [ -2 [ 0 ] when-positive ] unit-test
|
