\input luatexja.sty

\def\TEST#1{%
\setbox0=\vbox {\hsize=6\zw\parindent=0pt
#1
\tentt

あ！あ

あ！a

い！)

あ！(

あ！）全角

い！\kern0ptあ


あ（あ

い\kern0pt（あ

あ・あ

あ・(

あ・)

あ・a

}\copy0}

\TEST\yoko

\medskip
\TEST\tate
\tracingonline1
\showboxdepth10000
\showboxbreadth10000
\setbox0=\hbox{\tate い！\kern0ptあ}
\showbox0
\end
