add regression test for #45

test/dune

@@ -45,3 +45,9 @@
  (mode promote)
  (action
   (copy %{deps} %{targets})))
+
+(test
+ (name reg_45)
+ (modules reg_45)
+ (package printbox-text)
+ (libraries printbox printbox-text))

test/reg_45.expected

@@ -0,0 +1,36 @@
+┌─────────┐
+│123456789│
+├─────────┤
+│┌─┐      │
+││.│      │
+│├─┤      │
+││.│      │
+│└─┘      │
+└─────────┘
+┌─────────┐
+│123456789│
+├─────────┤
+│┌────┐   │
+││....│   │
+│├────┤   │
+││.   │   │
+│└────┘   │
+└─────────┘
+┌─────────┐
+│123456789│
+├─────────┤
+│┌───────┐│
+││      .││
+│├───────┤│
+││.      ││
+│└───────┘│
+└─────────┘
+┌─────────┐
+│123456789│
+├─────────┤
+│┌───────┐│
+││   ....││
+│├───────┤│
+││.      ││
+│└───────┘│
+└─────────┘

test/reg_45.ml

@@ -0,0 +1,47 @@
+let () =
+  PrintBox.(
+    PrintBox_text.output stdout
+    @@ frame
+         (vlist
+            [
+              text "123456789";
+              frame (vlist [ text "." |> align ~h:`Right ~v:`Top; text "." ]);
+            ]));
+  print_endline ""
+
+let () =
+  PrintBox.(
+    PrintBox_text.output stdout
+    @@ frame
+         (vlist
+            [
+              text "123456789";
+              frame (vlist [ text "...." |> align ~h:`Right ~v:`Top; text "." ]);
+            ]));
+  print_endline ""
+
+(* now with stretch *)
+
+let () =
+  PrintBox.(
+    PrintBox_text.output stdout
+    @@ frame
+         (vlist
+            [
+              text "123456789";
+              frame ~stretch:true
+                (vlist [ text "." |> align ~h:`Right ~v:`Top; text "." ]);
+            ]));
+  print_endline ""
+
+let () =
+  PrintBox.(
+    PrintBox_text.output stdout
+    @@ frame
+         (vlist
+            [
+              text "123456789";
+              frame ~stretch:true
+                (vlist [ text "...." |> align ~h:`Right ~v:`Top; text "." ]);
+            ]));
+  print_endline ""