diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor index e9e9b727b5..cb9bd96286 100644 --- a/basis/http/http-tests.factor +++ b/basis/http/http-tests.factor @@ -52,12 +52,14 @@ blah ] with-string-reader ] unit-test +<< CONSTANT: read-request-test-1' [[ POST /bar HTTP/1.1 content-length: 4 content-type: application/octet-stream some-header: 1; 2 blah]] +>> array[ read-request-test-1' ] [ read-request-test-1 lf>crlf diff --git a/basis/typed/typed-tests.factor b/basis/typed/typed-tests.factor index 3b88fa3351..3bd6e52d99 100644 --- a/basis/typed/typed-tests.factor +++ b/basis/typed/typed-tests.factor @@ -1,7 +1,7 @@ USING: accessors compiler.units effects eval kernel kernel.private layouts literals math namespaces quotations tools.test typed words words.symbol combinators.short-circuit compiler.tree.debugger prettyprint definitions -sequences classes.intersection strings classes.union ; +sequences classes.intersection strings classes.union combinators.smart.syntax ; IN: typed.tests TYPED: f+ ( a: float b: float -- c: float )