steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge git://factorcode.org/git/factor

release
U-C4\Administrator 2007-10-06 23:13:06 -05:00
parent e1d76211e3 3d1c3b9573
commit 50846a2f3a
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
core/kernel/kernel-tests.factor
View File

@ -1,6 +1,6 @@
USING: arrays byte-arrays kernel kernel.private math memory USING: arrays byte-arrays kernel kernel.private math memory
namespaces sequences tools.test math.private quotations namespaces sequences tools.test math.private quotations
continuations prettyprint io.streams.string ; continuations prettyprint io.streams.string debugger ;
IN: temporary IN: temporary
[ 0 ] [ f size ] unit-test [ 0 ] [ f size ] unit-test
@ -15,19 +15,36 @@ IN: temporary
[ { "kernel-error" 11 f f } ] [ { "kernel-error" 11 f f } ]
[ [ clear drop ] catch ] unit-test [ [ clear drop ] catch ] unit-test
[ ] [ :c ] unit-test
[ { "kernel-error" 13 f f } ] [ { "kernel-error" 13 f f } ]
[ [ { } set-retainstack r> ] catch ] unit-test [ [ { } set-retainstack r> ] catch ] unit-test
[ ] [ :c ] unit-test
: overflow-d 3 overflow-d ; : overflow-d 3 overflow-d ;
[ { "kernel-error" 12 f f } ] [ { "kernel-error" 12 f f } ]
[ [ overflow-d ] catch ] unit-test [ [ overflow-d ] catch ] unit-test
[ ] [ :c ] unit-test
: (overflow-d-alt) 3 ;
: overflow-d-alt (overflow-d-alt) overflow-d-alt ;
[ { "kernel-error" 12 f f } ]
[ [ overflow-d-alt ] catch ] unit-test
[ ] [ [ :c ] string-out drop ] unit-test
: overflow-r 3 >r overflow-r ; : overflow-r 3 >r overflow-r ;
[ { "kernel-error" 14 f f } ] [ { "kernel-error" 14 f f } ]
[ [ overflow-r ] catch ] unit-test [ [ overflow-r ] catch ] unit-test
[ ] [ :c ] unit-test
! : overflow-c overflow-c 3 ; ! : overflow-c overflow-c 3 ;
! !
! [ { "kernel-error" 16 f f } ] ! [ { "kernel-error" 16 f f } ]
@ -45,9 +62,17 @@ IN: temporary
[ 6 ] [ f 6 or ] unit-test [ 6 ] [ f 6 or ] unit-test
[ slip ] unit-test-fails [ slip ] unit-test-fails
[ ] [ :c ] unit-test
[ 1 slip ] unit-test-fails [ 1 slip ] unit-test-fails
[ ] [ :c ] unit-test
[ 1 2 slip ] unit-test-fails [ 1 2 slip ] unit-test-fails
[ ] [ :c ] unit-test
[ 1 2 3 slip ] unit-test-fails [ 1 2 3 slip ] unit-test-fails
[ ] [ :c ] unit-test
[ 5 ] [ [ 2 2 + ] 1 slip + ] unit-test [ 5 ] [ [ 2 2 + ] 1 slip + ] unit-test
@ -76,3 +101,4 @@ IN: temporary
[ ] [ callstack set-callstack ] unit-test [ ] [ callstack set-callstack ] unit-test
[ 3drop datastack ] unit-test-fails [ 3drop datastack ] unit-test-fails
[ ] [ :c ] unit-test