summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/uptexdir/tests/test_if.tex
blob: 35588f992c1fd07a73cfff470e249b89a709fe8c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
\kcatcode`あ=18
\def\xA{あ}\let\yA=あ
\kcatcode`あ=17
\def\xB{あ}\let\yB=あ
\kcatcode`あ=16

\message{\ifcat あ\xA Y\else N\fi}
\message{\ifcat あ\yA Y\else N\fi}
\message{\ifcat あ\xB Y\else N\fi}
\message{\ifcat あ\yB Y\else N\fi}

\message{\if    あ\xA Y\else N\fi}
\message{\if    あ\yA Y\else N\fi}
\message{\if    い\xA Y\else N\fi}
\message{\if    い\yA Y\else N\fi}

\ifx\ucs\undefined\else
  \kcatcode"100=16
  \message{upTeX}
  \def\xA{Ā}% U+0100
  \def\xB{ā}% U+0101
  \message{\if   \xA\relax Y\else N\fi}
  \message{\if   \xB\relax Y\else N\fi}
  \message{\ifcat\xA\relax Y\else N\fi}
  \message{\ifcat\xB\relax Y\else N\fi}
\fi
\end