strings.tables: add format-box test

diff --git a/basis/strings/tables/tables-tests.factor b/basis/strings/tables/tables-tests.factor
index 29fb28f054ce5b6ee411c404ce084fa3ac162032..f422a0361a50a82a7a67e48db027cd76db0ecc3f 100644 (file)
--- a/basis/strings/tables/tables-tests.factor
+++ b/basis/strings/tables/tables-tests.factor
@@ -11,3 +11,7 @@ USING: tools.test strings.tables ;
 { { "A B" "  C" "D E" } } [ { { "A" "B\nC" } { "D" "E" } } format-table ] unit-test
 
 { { "A B" "C D" "  E" } } [ { { "A" "B" } { "C" "D\nE" } } format-table ] unit-test
+
+{ { "┌───┬───┐" "│ A │ B │" "├───┼───┤" "│ C │ D │" "└───┴───┘" } }
+[ { { "A" "B" } { "C" "D" } } format-box ] unit-test
+