unhbox and unvbox.

[luatex-ja/luatexja.git] / test / test51-vtest.tex

diff --git a/test/test51-vtest.tex b/test/test51-vtest.tex
index a325f59..270fcb9 100644 (file)
--- a/test/test51-vtest.tex
+++ b/test/test51-vtest.tex
@@ -1,6 +1,6 @@
 %#!luatex
 
-\directlua{luatexja_debug = 1}
+%\directlua{luatexja_debug = 1}
 \input luatexja.sty
 %\input lua-visual-debug.sty
 
@@ -43,7 +43,7 @@
         \kern-.15em%
         \TeX}
 
-\tentgt
+\tentgt\hfuzz10000pt\relax\vfuzz10000pt
 
 \def\H{\vrule width 2pt height 10pt depth 0pt%
 \vrule width 4pt height 0pt depth 4pt}
@@ -276,21 +276,55 @@ abc&かきくけこ&xyz\cr}}%
 \vfill\eject
 
 \message{^^Jdir node^^J}
+\font\seventt=cmtt10 at 7pt
 
-\setbox0=\hbox{\tate ABCD}
-\setbox1=\hbox{\yoko\box0}
-\unhcopy1
-\setbox1=\lastbox %% box1: dir_node
-\ltjsetdp1=100pt
-\setbox2=\hbox{\tate \ltjsetdp1=42pt\copy1}%% unwrap
+\setbox0=\hbox{\yoko pF}
+\setbox1=\hbox{\tate\box0}
+\fbox{\copy1}
+\unhcopy1\setbox1=\lastbox %% box1: dir_node
+\setbox0=\hbox{\yoko \ltjsetwd1=50pt}
+\setbox0=\hbox{\dtou \ltjsetwd1=2pt}
+{\obeylines\seventt\baselineskip=10pt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'dir node>  ', tex.print)}\par}
 
-{\obeylines\tentt
-\directlua{luatexja.ext_show_node_list(tex.box[2], 'A> ', tex.print)}}
+\setbox0=\hbox{\yoko \ltjsetht1=30pt}
+{\obeylines\seventt\baselineskip=10pt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Yht> ', tex.print)}\par}
+
+\setbox0=\hbox{\tate \ltjsetwd1=50pt}
+{\obeylines\seventt\baselineskip=10pt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Twd> ', tex.print)}\par}
+
+\setbox0=\hbox{\yoko \ltjsetht1=70pt}
+{\obeylines\seventt\baselineskip=10pt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'alter Yht> ', tex.print)}\par}
+
+%% unwrap
+\setbox2=\hbox{\yoko \copy1}
+\setbox2=\hbox{\yoko \unhbox2\global\setbox1=\lastbox}
+{\obeylines\seventt
+\directlua{luatexja.ext_show_node_list(tex.box[1], 'unwrapped> ', tex.print)}}
+
+
+
+\setbox0\hbox{\yoko a あ }\setbox1=\hbox{\tate\ltjsetht0=2pt}
+
+\fbox{\copy0}
+\vbox{\yoko\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+\vbox{\tate\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+\vbox{\dtou\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+%
+\ltjsetwd0=40pt
+\vbox{\yoko\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+\vbox{\tate\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+\vbox{\dtou\hsize=60pt\noindent\the\ltjgetwd0,\\\the\ltjgetht0,\\\the\ltjgetdp0}
+
+p\kern-.15em\TeX\ bug (2011-02-24)
+\setbox0=\hbox{\tate a}\fbox{\copy0}%
+\hbox{\yoko\ltjsetht0=30pt
+\hbox{\dtou\dimen0=\ltjgetht0}
+\the\ltjgetht0}% OK. 30pt
 
-\setbox2=\hbox{\tate \unhbox2\global\setbox1=\lastbox}%% unwrap
-{\obeylines\tentt
-\directlua{luatexja.ext_show_node_list(tex.box[1], 'B> ', tex.print)}}
 
-\the\ltjgetdp{1}\hbox{\tate \the\ltjgetdp{1}}
 \end