latex2e-20160201/base/testfiles/tlb2529.lvt

   1 % \iffalse meta-comment
   2 %
   3 % Copyright (C) 1998 Frank Mittelbach.
   4 % All rights reserved.
   5 %
   6 % This file is part of the validate package.
   7 %
   8 % IMPORTANT NOTICE:
   9 %
  10 % You are not allowed to change this file.  In case of error
  11 % write to the email address mentioned in the file readme.val.
  12 %
  13 % \fi
  14 %
  15 % Test file for LaTeX2e bug report #2529.
  16
  17 % Input the test macros for LaTeX2e
  18 \input{test2e}
  19
  20 \CLASS{article}
  21 \PACKAGE[ascii]{inputenc}
  22
  23 \documentclass{article}
  24
  25 \usepackage[ascii]{inputenc}  % any inputenc will do since we override
  26                               % the definitions.
  27
  28 \DeclareTextSymbol{\TESTA}{OT1}{"4B}  % letter K
  29 \DeclareTextSymbol{\TESTB}{OT1}{"4F}  % letter O
  30 \DeclareTextSymbol{\testa}{OT1}{"6B}  % letter k
  31 \DeclareTextSymbol{\testb}{OT1}{"6F}  % letter o
  32
  33 \DeclareInputText{"80}{\TESTA}
  34 \DeclareInputText{"81}{\TESTB}
  35 \DeclareInputText{"82}{\testa}
  36 \DeclareInputText{"83}{\testb}
  37
  38 \makeatletter
  39 \expandafter\def\expandafter\@uclclist\expandafter{\@uclclist
  40 \testa\TESTA\testb\TESTB}
  41 \makeatother
  42
  43 \begin{document}
  44
  45 \START
  46
  47 \setbox0=\hbox{^^80^^81}
  48 \showbox0
  49 % the next command shows that no kerning does happen.
  50 % Reason: \MakeUppercase{^^82^^83} expands into
  51 %
  52 %   \uppercase{\protect\IeC{\TESTA}\protect\IeC{\TESTB}}
  53 %
  54 % but at this time the \protect is \let to \relax which is a bug!
  55 \setbox0=\hbox{\MakeUppercase{^^82^^83}}
  56 \showbox0
  57
  58 \end{document}