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

Fix some test failures and add an unportable tag

db4
Slava Pestov 2009-04-30 22:56:15 -05:00
parent b8b7d3861b
commit a70a2c0e31
7 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/compiler/tests/call-effect.factor
View File

@ -4,4 +4,11 @@ USING: tools.test combinators generic.single sequences kernel ;
: execute-ic-test ( a b -- c ) execute( a -- c ) ; : execute-ic-test ( a b -- c ) execute( a -- c ) ;
! VM type check error ! VM type check error
[ 1 f execute-ic-test ] [ second 3 = ] must-fail-with [ 1 f execute-ic-test ] [ second 3 = ] must-fail-with
: call-test ( q -- ) call( -- ) ;
[ ] [ [ ] call-test ] unit-test
[ ] [ f [ drop ] curry call-test ] unit-test
[ ] [ [ ] [ ] compose call-test ] unit-test
[ [ 1 2 3 ] call-test ] [ wrong-values? ] must-fail-with

2
basis/delegate/delegate-tests.factor
View File

@ -1,6 +1,6 @@
USING: delegate kernel arrays tools.test words math definitions USING: delegate kernel arrays tools.test words math definitions
compiler.units parser generic prettyprint io.streams.string compiler.units parser generic prettyprint io.streams.string
accessors eval multiline generic.standard delegate.protocols accessors eval multiline generic.single delegate.protocols
delegate.private assocs see ; delegate.private assocs see ;
IN: delegate.tests IN: delegate.tests

2
basis/stack-checker/call-effect/call-effect.factor
View File

@ -19,7 +19,7 @@ IN: stack-checker.call-effect
TUPLE: inline-cache value ; TUPLE: inline-cache value ;
: cache-hit? ( word/quot ic -- ? ) : cache-hit? ( word/quot ic -- ? )
[ value>> ] [ value>> eq? ] bi and ; inline [ value>> eq? ] [ value>> ] bi and ; inline
SINGLETON: +unknown+ SINGLETON: +unknown+

2
core/io/files/files-tests.factor
View File

@ -1,7 +1,7 @@
USING: arrays debugger.threads destructors io io.directories USING: arrays debugger.threads destructors io io.directories
io.encodings.8-bit io.encodings.ascii io.encodings.binary io.encodings.8-bit io.encodings.ascii io.encodings.binary
io.files io.files.private io.files.temp io.files.unique kernel io.files io.files.private io.files.temp io.files.unique kernel
make math sequences system threads tools.test generic.standard ; make math sequences system threads tools.test generic.single ;
IN: io.files.tests IN: io.files.tests
[ ] [ "append-test" temp-file dup exists? [ delete-file ] [ drop ] if ] unit-test [ ] [ "append-test" temp-file dup exists? [ delete-file ] [ drop ] if ] unit-test

2
core/slots/slots-tests.factor
View File

@ -1,5 +1,5 @@
IN: slots.tests IN: slots.tests
USING: math accessors slots strings generic.standard kernel USING: math accessors slots strings generic.single kernel
tools.test generic words parser eval math.functions ; tools.test generic words parser eval math.functions ;
TUPLE: r/w-test foo ; TUPLE: r/w-test foo ;

2
core/strings/strings-tests.factor
View File

@ -58,7 +58,7 @@ unit-test
[ "\u001234bc\0\0\0" ] [ 6 "\u001234bc" resize-string ] unit-test [ "\u001234bc\0\0\0" ] [ 6 "\u001234bc" resize-string ] unit-test
! Random tester found this ! Random tester found this
[ 2 -7 resize-string ] [ { "kernel-error" 3 12 -7 } = ] must-fail-with [ 2 -7 resize-string ] [ { "kernel-error" 3 11 -7 } = ] must-fail-with
! Make sure 24-bit strings work ! Make sure 24-bit strings work
"hello world" "s" set "hello world" "s" set

1
extra/modules/using/tests/tags.txt Normal file
View File

@ -0,0 +1 @@
unportable