Fix tests. Remove dependency on seq.

In the future other pretty printing primitives might be provided or used.

Author: nomennescio

test/test-custom.expected

@@ -7,46 +7,50 @@
 
 <PASSED::>Just passed
 
-<COMPLETEDIN::>0.129834 ms
+<COMPLETEDIN::>0.140822 ms
 
 <IT::>failing compares
 
 <FAILED::>Just failed
 
 <FAILED::>Just failed
 
-<COMPLETEDIN::>0.076824 ms
+<COMPLETEDIN::>0.068695 ms
 
 <IT::>short strings
 
 <PASSED::>Test passed
 
 <PASSED::>Test passed
 
-<COMPLETEDIN::>0.025016 ms
+<COMPLETEDIN::>0.026218 ms
 
 <IT::>failing compares
 
-<FAILED::>Actually expected :<:LF:>"Hello Worlds!"<:LF:>but instead got :<:LF:>"Hello World!"
+<FAILED::>Actually expected :{ "Hello Worlds!" }<:LF:><:LF:>but instead got :{ "Hello World!" }
 
-<FAILED::>Actually expected :<:LF:>"Hello Worlds! "<:LF:>but instead got :<:LF:>"Hello Worlds!"
 
-<COMPLETEDIN::>0.162660 ms
+<FAILED::>Actually expected :{ "Hello Worlds! " }<:LF:><:LF:>but instead got :{ "Hello Worlds!" }
+
+
+<COMPLETEDIN::>0.336267 ms
 
 <IT::>short strings
 
 <PASSED::>Test Passed
 
 <PASSED::>Test Passed
 
-<COMPLETEDIN::>0.026153 ms
+<COMPLETEDIN::>0.047432 ms
 
 <IT::>failing compares
 
-<FAILED::>Test Failed : Actually expected :<:LF:>"Hello Worlds!"<:LF:>but instead got :<:LF:>"Hello World!"
+<FAILED::>Test Failed : Actually expected :{ "Hello Worlds!" }<:LF:><:LF:>but instead got :{ "Hello World!" }
+
+
+<FAILED::>Test Failed : Actually expected :{ "Hello Worlds! " }<:LF:><:LF:>but instead got :{ "Hello Worlds!" }
 
-<FAILED::>Test Failed : Actually expected :<:LF:>"Hello Worlds! "<:LF:>but instead got :<:LF:>"Hello Worlds!"
 
-<COMPLETEDIN::>0.055392 ms
+<COMPLETEDIN::>0.086214 ms
 
-<COMPLETEDIN::>0.726864 ms
+<COMPLETEDIN::>0.922141 ms

test/test-custom.factor

@@ -1,11 +1,11 @@
-! Copyright 2019 nomennescio
+! Copyright 2019-2022 nomennescio
 
-USING: accessors debugger io kernel namespaces sequences tools.testest ;
+USING: accessors debugger io kernel namespaces prettyprint sequences tools.testest ;
 IN: tests
 
 M: assert-sequence error.
-  [ "Actually expected :" write expected>> seq. ]
-  [ lf "but instead got :" write got>> seq. ] bi
+  [ "Actually expected :" write expected>> ... ]
+  [ lf "but instead got :" write got>> ... ] bi
 ;
 
 : run-test ( -- )