factor/library/test/lists/lists.factor

IN: temporary
USING: kernel lists sequences test ;

[ [ 3 ]     ] [ [ 3 ]         last ] unit-test
[ [ 3 ]     ] [ [ 1 2 3 ]     last ] unit-test
[ [[ 3 4 ]] ] [ [[ 1 [[ 2 [[ 3 4 ]] ]] ]] last ] unit-test

[ 3 ] [ [ 3 ]         peek ] unit-test
[ 3 ] [ [ 1 2 3 ]     peek ] unit-test
[ 3 ] [ [[ 1 [[ 2 [[ 3 4 ]] ]] ]] peek ] unit-test

[ 0 ] [ [ ]       length ] unit-test
[ 3 ] [ [ 1 2 3 ] length ] unit-test

[ t ] [ f         list? ] unit-test
[ f ] [ t         list? ] unit-test
[ t ] [ [ 1 2 ]   list? ] unit-test
[ f ] [ [[ 1 2 ]] list? ] unit-test

[ [ ]         ] [ 0   >list ] unit-test
[ [ 0 1 2 3 ] ] [ 4   >list ] unit-test
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
all tests now pass; more unix ffi i/o work 2005-04-03 19:02:50 -04:00			`USING: kernel lists sequences test ;`
working on the test suite 2004-08-04 03:12:55 -04:00
handbook updates, remove vector-length vector-nth set-vector-nth 2005-04-26 00:35:55 -04:00			`[ [ 3 ] ] [ [ 3 ] last ] unit-test`
			`[ [ 3 ] ] [ [ 1 2 3 ] last ] unit-test`
			`[ [[ 3 4 ]] ] [ [[ 1 [[ 2 [[ 3 4 ]] ]] ]] last ] unit-test`
working on the test suite 2004-08-04 03:12:55 -04:00
fix unit test failures 2005-04-30 01:12:23 -04:00			`[ 3 ] [ [ 3 ] peek ] unit-test`
			`[ 3 ] [ [ 1 2 3 ] peek ] unit-test`
			`[ 3 ] [ [[ 1 [[ 2 [[ 3 4 ]] ]] ]] peek ] unit-test`
working on the test suite 2004-08-04 03:12:55 -04:00
			`[ 0 ] [ [ ] length ] unit-test`
			`[ 3 ] [ [ 1 2 3 ] length ] unit-test`

			`[ t ] [ f list? ] unit-test`
			`[ f ] [ t list? ] unit-test`
			`[ t ] [ [ 1 2 ] list? ] unit-test`
[[ car cdr ]] syntax replaces [ car \| cdr ] 2005-01-13 19:49:47 -05:00			`[ f ] [ [[ 1 2 ]] list? ] unit-test`
working on the test suite 2004-08-04 03:12:55 -04:00
integers support sequence protocol, remove count, project, project-with, remove zip, clean up a lot of code 2005-07-25 17:13:35 -04:00			`[ [ ] ] [ 0 >list ] unit-test`
			`[ [ 0 1 2 3 ] ] [ 4 >list ] unit-test`