xml: fix compile warnings in tests
parent
7aeb13e58a
commit
3b40334ccd
|
@ -2,7 +2,7 @@ USING: tools.test xml.tokenize xml.state io.streams.string kernel io strings asc
|
|||
IN: xml.test.state
|
||||
|
||||
: string-parse ( str quot -- )
|
||||
[ <string-reader> ] dip with-state ;
|
||||
[ <string-reader> ] dip with-state ; inline
|
||||
|
||||
: take-rest ( -- string )
|
||||
[ f ] take-until ;
|
||||
|
|
|
@ -43,7 +43,7 @@ MACRO: drop-input ( quot -- newquot )
|
|||
xml-tests [ unit-test ] assoc-each ;
|
||||
|
||||
: works? ( result quot -- ? )
|
||||
[ first ] [ call ] bi* = ;
|
||||
[ first ] [ call( -- result ) ] bi* = ;
|
||||
|
||||
: partition-xml-tests ( -- successes failures )
|
||||
xml-tests [ first2 works? ] partition ;
|
||||
|
|
Loading…
Reference in New Issue