From eb1273b475dd4ef3e2b4822356a06c5b6eff2267 Mon Sep 17 00:00:00 2001
From: nomennescio <nomennescio@users.noreply.github.com>
Date: Sat, 12 Oct 2019 22:51:45 +0200
Subject: [PATCH] Pretty-print data without limits

---
 test/test-sequences.expected |  4 ++++
 test/test-sequences.factor   | 14 ++++++++++++++
 tools/testest/testest.factor |  6 ++++--
 3 files changed, 22 insertions(+), 2 deletions(-)
 create mode 100644 test/test-sequences.expected
 create mode 100644 test/test-sequences.factor

diff --git a/test/test-sequences.expected b/test/test-sequences.expected
new file mode 100644
index 0000000..a5fb57c
--- /dev/null
+++ b/test/test-sequences.expected
@@ -0,0 +1,4 @@
+
+<FAILED::>Test Failed : Expected :<:LF:>{ 1 }<:LF:>but got :<:LF:>{ 0 }
+
+<FAILED::>Test Failed : Expected :<:LF:>{ { 0 } { 1 } }<:LF:>but got :<:LF:>{ { 0 } { 0 } }
diff --git a/test/test-sequences.factor b/test/test-sequences.factor
new file mode 100644
index 0000000..606d22c
--- /dev/null
+++ b/test/test-sequences.factor
@@ -0,0 +1,14 @@
+! Copyright 2019 nomennescio
+
+USING: tools.testest ;
+IN: tests
+
+: run-tests ( -- )
+
+<{ { 0 } -> { 1 } }>
+<{ { { 0 } { 0 } } -> { { 0 } { 1 } } }>
+
+;
+
+MAIN: run-tests
+
diff --git a/tools/testest/testest.factor b/tools/testest/testest.factor
index 6a3e0c4..9086752 100644
--- a/tools/testest/testest.factor
+++ b/tools/testest/testest.factor
@@ -1,7 +1,7 @@
 ! Copyright 2019 nomennescio
 
 USING: accessors continuations debugger formatting io io.styles kernel locals math namespaces
-parser prettyprint quotations sequences system ;
+parser prettyprint prettyprint.config quotations sequences system ;
 IN: tools.testest
 
 : describe#{ ( description -- starttime ) nl "<DESCRIBE::>%s" printf nl nano-count ;
@@ -12,9 +12,11 @@ IN: tools.testest
 
 : lf ( -- ) "<:LF:>" write ;
 
+: pprint-unlimited ( obj -- ) [ pprint ] without-limits ;
+
 : seq. ( seq -- )
   [
-    [ lf pprint-short ]
+    [ lf pprint-unlimited ]
     [ drop [ error-in-pprint ] keep write-object ]
     recover
   ] each