factor/library/test/lists/cons.factor

IN: temporary
USE: lists
USE: test
USE: sequences

[ f ] [ f car ] unit-test
[ f ] [ f cdr ] unit-test

[ 5 car ] unit-test-fails
[ "Hello world" cdr ] unit-test-fails

[ f ] [ f         cons? ] unit-test
[ f ] [ t         cons? ] unit-test
[ t ] [ [[ t f ]] cons? ] unit-test

[ [[ 1 2 ]] ] [ 1 2 cons ] unit-test
[ [ 1 ]     ] [ 1 f cons ] unit-test

[ [[ 1 2 ]] ] [ 2 1 swons ] unit-test
[ [ 1 ]     ] [ f 1 swons ] unit-test

[ [ [ [ ] ] ] ] [ [ ] unit unit ] unit-test

[ 1 ] [ [[ 1 2 ]] car ] unit-test
[ 2 ] [ [[ 1 2 ]] cdr ] unit-test

[ 1 2     ] [ [[ 1 2 ]] uncons ] unit-test
[ 1 [ 2 ] ] [ [ 1 2 ]   uncons ] unit-test

[ 1 2     ] [ [[ 2 1 ]] unswons ] unit-test
[ [ 2 ] 1 ] [ [ 1 2 ]   unswons ] unit-test

[ 1 3 ] [ [[ 1 2 ]] [[ 3 4 ]] 2car ] unit-test
[ 2 4 ] [ [[ 1 2 ]] [[ 3 4 ]] 2cdr ] unit-test

[ f ] [ f peek ] unit-test