factor/library/test/kernel.factor

IN: scratchpad
USING: kernel kernel-internals math memory namespaces sequences
test ;

[ 0 ] [ f size ] unit-test
[ t ] [ [ \ = \ = ] all-equal? ] unit-test

! (clone) primitive was missing GC check
[ ] [ 1000000 [ drop H{ } clone >n n> drop ] each ] unit-test

[ t ] [ cell integer? ] unit-test
[ t ] [ bootstrap-cell integer? ] unit-test

[ [ 3 ] ] [ 3 f curry ] unit-test
[ [ \ + ] ] [ \ + f curry ] unit-test
[ [ \ + = ] ] [ \ + [ = ] curry ] unit-test
various clean ups, fix linearization of #label 2005-08-12 18:02:03 -04:00			`IN: scratchpad`
bootstrap fix 2005-12-14 20:29:32 -05:00			`USING: kernel kernel-internals math memory namespaces sequences`
Fix 'bad XT' error 2006-09-02 01:58:23 -04:00			`test ;`
various clean ups, fix linearization of #label 2005-08-12 18:02:03 -04:00
			`[ 0 ] [ f size ] unit-test`
inference updates for callcc inference 2005-09-18 01:37:28 -04:00			`[ t ] [ [ \ = \ = ] all-equal? ] unit-test`
fix missing GC check 2005-12-12 20:53:55 -05:00
			`! (clone) primitive was missing GC check`
			`[ ] [ 1000000 [ drop H{ } clone >n n> drop ] each ] unit-test`
bootstrap fix 2005-12-14 20:29:32 -05:00
cell fix; experimental preferred size cache; floor/ceiling/truncate/mod for floats; fix mod for ratios; fix float equality test 2006-01-26 23:01:14 -05:00			`[ t ] [ cell integer? ] unit-test`
			`[ t ] [ bootstrap-cell integer? ] unit-test`
Messing around with commands and operations 2006-08-30 03:50:02 -04:00
			`[ [ 3 ] ] [ 3 f curry ] unit-test`
			`[ [ \ + ] ] [ \ + f curry ] unit-test`
			`[ [ \ + = ] ] [ \ + [ = ] curry ] unit-test`