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

xml: fix compile warnings in tests

db4
Slava Pestov 2009-04-20 03:27:52 -05:00
parent 7aeb13e58a
commit 3b40334ccd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/xml/tests/state-parser-tests.factor
View File

@ -2,7 +2,7 @@ USING: tools.test xml.tokenize xml.state io.streams.string kernel io strings asc
IN: xml.test.state IN: xml.test.state
: string-parse ( str quot -- ) : string-parse ( str quot -- )
[ <string-reader> ] dip with-state ; [ <string-reader> ] dip with-state ; inline
: take-rest ( -- string ) : take-rest ( -- string )
[ f ] take-until ; [ f ] take-until ;

2
basis/xml/tests/xmltest.factor
View File

@ -43,7 +43,7 @@ MACRO: drop-input ( quot -- newquot )
xml-tests [ unit-test ] assoc-each ; xml-tests [ unit-test ] assoc-each ;
: works? ( result quot -- ? ) : works? ( result quot -- ? )
[ first ] [ call ] bi* = ; [ first ] [ call( -- result ) ] bi* = ;
: partition-xml-tests ( -- successes failures ) : partition-xml-tests ( -- successes failures )
xml-tests [ first2 works? ] partition ; xml-tests [ first2 works? ] partition ;