Merge pull request #32 from nomennescio/prepare-release

Prepare release 2.0.0

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 ( -- )

tools/testest/testest.factor

@@ -47,10 +47,11 @@ SYNTAX: <{ \ -> parse-until >quotation suffix! \ }> parse-until >quotation suffi
 
 ! customized printing
 
-! line internal unformatted linefeed, to be used in single-line test result messages
-
+! deprecated
 : lf ( -- ) "<:LF:>" write ;
 
+<PRIVATE
+
 : pprint-unlimited ( obj -- ) [ pprint ] without-limits ;
 
 : seq. ( seq -- )
@@ -61,18 +62,16 @@ SYNTAX: <{ \ -> parse-until >quotation suffix! \ }> parse-until >quotation suffi
   ] each
 ;
 
-<PRIVATE
-
 SYMBOL: ERROR:{
 : pprint-error ( error-tuple -- ) [ ERROR:{ ] dip [ class-of ] [ tuple>assoc ] bi \ } (pprint-tuple) ;
 
 ! print errors differently from tuples
 M: tuple pprint* dup class-of error-class? [ pprint-error ] [ pprint-tuple ] if ;
 M: tuple error. dup class-of error-class? [ pprint-short ] [ describe ] if ;
 
-PRIVATE>
-
 M: assert-sequence error.
   [ "Expected :" write expected>> seq. ]
   [ nl "but got :" write got>> seq. ] bi
 ;
+
+PRIVATE>