From 2f96cde6d6d726cda9597fe13e59c270455a53f5 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 18 Jan 2022 16:53:38 -0500
Subject: [PATCH] more tests

---
 test/test1.expected | 31 +++++++++++++++++++++++++++++++
 test/test1.ml       | 17 ++++++++++++++++-
 2 files changed, 47 insertions(+), 1 deletion(-)

diff --git a/test/test1.expected b/test/test1.expected
index 9afc55c..4d3ab9c 100644
--- a/test/test1.expected
+++ b/test/test1.expected
@@ -510,6 +510,32 @@ root
 │     │          10│20           │
 │     │                          │
 └─────┴──────────────────────────┘
+┌─────────────────┬──────────────────────────────────────────────────────────────┐
+│subject          │announce: printbox 0.3                                        │
+├─────────────────┼──────────────────────────────────────────────────────────────┤
+│explanation      │┌────────────────────────────────────────────────────────────┐│
+│                 ││PrintBox is a library for rendering nested tables,          ││
+│                 ││    trees, and similar structures in monospace text or HTML.││
+│                 │└────────────────────────────────────────────────────────────┘│
+├─────────────────┼──────────────────────────────────────────────────────────────┤
+│github           │https://github.com/c-cube/printbox/releases/tag/0.3           │
+├─────────────────┼──────────────────────────────────────────────────────────────┤
+│contributors     │Simon                                                         │
+│                 ├──────────────────────────────────────────────────────────────┤
+│                 │Guillaume                                                     │
+│                 ├──────────────────────────────────────────────────────────────┤
+│                 │Matt                                                          │
+├─────────────────┼──────────────────────────────────────────────────────────────┤
+│dependencies     │├─mandatory                                                   │
+│                 ││ ├─dune                                                      │
+│                 ││ └─bytes                                                     │
+│                 │└─optional                                                    │
+│                 │  ├─uutf                                                      │
+│                 │  ├─uucp                                                      │
+│                 │  └─tyxml                                                     │
+├─────────────────┼──────────────────────────────────────────────────────────────┤
+│expected reaction│🎉                                                            │
+└─────────────────┴──────────────────────────────────────────────────────────────┘
 ┌────────────────────────────────────┐
 │nice unicode! 💪                    │
 ├────────────────────────────────────┤
@@ -528,3 +554,8 @@ root
 ││              │└─────────────────┘││
 │└──────────────┴───────────────────┘│
 └────────────────────────────────────┘
+┌─────────────────────────────────┐
+│ab                               │
+│cd no color here                 │
+│hello world color me (but not me)│
+└─────────────────────────────────┘
diff --git a/test/test1.ml b/test/test1.ml
index f957b1c..a6f1226 100644
--- a/test/test1.ml
+++ b/test/test1.ml
@@ -78,7 +78,7 @@ end
 
 let b =
   let open PrintBox in
-  frame @@ record [
+  frame @@ v_record [
     ("subject", text_with_style Style.bold "announce: printbox 0.3");
     ("explanation",
     frame @@ text {|PrintBox is a library for rendering nested tables,
@@ -96,6 +96,9 @@ let b =
     ("expected reaction", text "🎉");
   ]
 
+(* announcefor 0.3  *)
+let () = print_endline @@ PrintBox_text.to_string b
+
 module Unicode = struct
   let b =
     B.(frame @@ vlist [text "nice unicode! 💪"; frame @@
@@ -107,3 +110,15 @@ module Unicode = struct
 
   let () = print_endline @@ PrintBox_text.to_string b
 end
+
+module Rich_text_  = struct
+  let b =
+    B.(frame @@ rich_text @@ Rich_text.(lines [
+        cat [with_style Style.(bg_color Cyan) (s "ab\ncd"); s " no color here"];
+        cat [s "hello"; space; s "world";
+             with_style Style.(fg_color Green) (s " color me"); s " (but not me)"];
+      ]));;
+
+  let () = print_endline @@ PrintBox_text.to_string b
+
+end