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

Add some failing tests

db4
Slava Pestov 2008-08-27 16:25:37 -05:00
parent 8346554b07
commit ea2d02f248
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/compiler/tests/redefine4.factor Normal file
View File

@ -0,0 +1,12 @@
IN: compiler.tests
USING: io.streams.string kernel tools.test eval ;
: declaration-test-1 ( -- a ) 3 ; flushable
: declaration-test ( -- ) declaration-test-1 drop ;
[ "" ] [ [ declaration-test ] with-string-writer ] unit-test
[ ] [ "IN: compiler.tests USE: io : declaration-test-1 ( -- a ) \"X\" print f ;" eval ] unit-test
[ "X" ] [ [ declaration-test ] with-string-writer ] unit-test

6
basis/compiler/tree/propagation/propagation-tests.factor
View File

@ -565,6 +565,12 @@ M: integer infinite-loop infinite-loop ;
[ ] [ [ too-deep ] final-info drop ] unit-test
[ ] [ [ reversed boa slice boa nth-unsafe * ] final-info drop ] unit-test
MIXIN: empty-mixin
[ ] [ [ { empty-mixin } declare empty-mixin? ] final-info drop ] unit-test
! [ V{ string } ] [
! [ dup string? t xor [ "A" throw ] [ ] if ] final-classes
! ] unit-test