From 7f2d63bf253f218f4512eccc914648c6988e947f Mon Sep 17 00:00:00 2001
From: "Jurgen J. Vinju" <Jurgen.Vinju@cwi.nl>
Date: Tue, 2 Apr 2024 11:03:42 +0200
Subject: [PATCH] added WD test

---
 src/org/rascalmpl/library/lang/box/util/Box2Text.rsc | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/org/rascalmpl/library/lang/box/util/Box2Text.rsc b/src/org/rascalmpl/library/lang/box/util/Box2Text.rsc
index 401c1b08cfe..b024fa69a21 100644
--- a/src/org/rascalmpl/library/lang/box/util/Box2Text.rsc
+++ b/src/org/rascalmpl/library/lang/box/util/Box2Text.rsc
@@ -515,3 +515,14 @@ test bool simpleAlignedTableDifferentAlignment()
        '777 888 999
        '";
 
+test bool WDtest() {
+    L1 = H([L("aap")]           , hs=0);
+    L2 = H([WD([L1]), L("noot")], hs=0);
+    L3 = H([WD([L2]), L("mies")], hs=0);
+
+    return format(V([L1, L2, L3]))
+        == "aap
+           '   noot
+           '       mies
+           '";
+}
\ No newline at end of file