core: Add words/unwords/unwords-as and use them.

[factor.git] / core / classes / tuple / parser / parser-tests.factor

diff --git a/core/classes/tuple/parser/parser-tests.factor b/core/classes/tuple/parser/parser-tests.factor
index 2f410c221b25c8a8e45e0cdc03b079e7c7943bd6..836dc4c8b03f4452bce08b63e552d86d1ba311dd 100644 (file)
--- a/core/classes/tuple/parser/parser-tests.factor
+++ b/core/classes/tuple/parser/parser-tests.factor
@@ -107,7 +107,7 @@ TUPLE: parsing-corner-case x ;
         "    f"
         "    3"
         "}"
-    } "\n" join eval( -- tuple )
+    } unlines eval( -- tuple )
 ] unit-test
 
 { T{ parsing-corner-case f 3 } } [
@@ -116,7 +116,7 @@ TUPLE: parsing-corner-case x ;
         "T{ parsing-corner-case"
         "    { x 3 }"
         "}"
-    } "\n" join eval( -- tuple )
+    } unlines eval( -- tuple )
 ] unit-test
 
 { T{ parsing-corner-case f 3 } } [
@@ -125,7 +125,7 @@ TUPLE: parsing-corner-case x ;
         "T{ parsing-corner-case {"
         "    x 3 }"
         "}"
-    } "\n" join eval( -- tuple )
+    } unlines eval( -- tuple )
 ] unit-test
 
 
@@ -133,14 +133,14 @@ TUPLE: parsing-corner-case x ;
     {
         "USE: classes.tuple.parser.tests T{ parsing-corner-case"
         "    { x 3 }"
-    } "\n" join eval( -- tuple )
+    } unlines eval( -- tuple )
 ] [ error>> unexpected-eof? ] must-fail-with
 
 [
     {
         "USE: classes.tuple.parser.tests T{ parsing-corner-case {"
         "    x 3 }"
-    } "\n" join eval( -- tuple )
+    } unlines eval( -- tuple )
 ] [ error>> unexpected-eof? ] must-fail-with
 
 TUPLE: bad-inheritance-tuple ;