summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/oberdiek/test/ltxcmds-test-carcdr.tex
blob: a00274e8ec52d4259902ba11fe8f08df84d3ae94 (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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
%%
%% This is file `ltxcmds-test-carcdr.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% ltxcmds.dtx  (with options: `test-carcdr')
%% 
%% This is a generated file.
%% 
%% Project: ltxcmds
%% Version: 2016/05/16 v1.23
%% 
%% Copyright (C) 2009-2011 by
%%    Heiko Oberdiek <heiko.oberdiek at googlemail.com>
%% 
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either
%% version 1.3c of this license or (at your option) any later
%% version. This version of this license is in
%%    http://www.latex-project.org/lppl/lppl-1-3c.txt
%% and the latest version of this license is in
%%    http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of
%% LaTeX version 2005/12/01 or later.
%% 
%% This work has the LPPL maintenance status "maintained".
%% 
%% This Current Maintainer of this work is Heiko Oberdiek.
%% 
%% The Base Interpreter refers to any `TeX-Format',
%% because some files are installed in TDS:tex/generic//.
%% 
%% This work consists of the main source file ltxcmds.dtx
%% and the derived files
%%    ltxcmds.sty, ltxcmds.pdf, ltxcmds.ins, ltxcmds.drv,
%%    ltxcmds-test1.tex, ltxcmds-test-gobble.tex,
%%    ltxcmds-test-ifempty.tex, ltxcmds-test-zapspace.tex,
%%    ltxcmds-test-ifboxempty.tex, ltxcmds-test-nextchar.tex,
%%    ltxcmds-test-carcdr.tex.
%% 
\catcode`\{=1 %
\catcode`\}=2 %
\catcode`\#=6 %
\catcode`\@=11 %
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname RequirePackage\endcsname\relax
  \input ltxcmds.sty\relax
  \input eolgrab.sty\relax
\else
  \RequirePackage{ltxcmds}[2016/05/16]%
  \RequirePackage{eolgrab}[2011/01/12]%
\fi
\def\msg#{\immediate\write16}
\def\space{ }
\long\def\Test#1#2#3{%
  \begingroup
    \def\TestExpected{#3}%
    \expandafter\expandafter\expandafter\def
    \expandafter\expandafter\expandafter\TestResult
    \expandafter\expandafter\expandafter{%
      #1#2\@nil
    }%
    \ifx\TestResult\TestExpected
    \else
      \msg{\string\TestExpected: [\meaning\TestExpected]}%
      \msg{\string\TestResult: \space\space[\meaning\TestResult]}%
      \errmessage{Test failed!}%
    \fi
  \endgroup
}
\Test\ltx@carzero{abc}{}
\Test\ltx@carzero{}{}
\Test\ltx@carzero{\par\par}{}
\Test\ltx@cdrzero{}{}
\Test\ltx@cdrzero{abc}{abc}
\Test\ltx@cdrzero{ \par}{ \par}
\Test\ltx@cdrzero{\@empty}{\@empty}
\Test\ltx@cdrzero{{}}{{}}
\Test\ltx@car{abc}{a}
\Test\ltx@car{\par}{\par}
\Test\ltx@cdr{abc}{bc}
\Test\ltx@cdr{a \par}{ \par}
\Test\ltx@cdr{a\@empty}{\@empty}
\Test\ltx@cartwo{abc}{ab}
\Test\ltx@cartwo{\par\@empty}{\par\@empty}
\Test\ltx@carsecond{abc}{b}
\Test\ltx@carsecond{\@empty b\@empty}{b}
\Test\ltx@carsecond{\par\par\par}{\par}
\Test\ltx@cdrtwo{abc}{c}
\Test\ltx@cdrtwo{ab \par}{ \par}
\Test\ltx@cdrtwo{ab\@empty}{\@empty}
\Test\ltx@cdrtwo{ab{}}{{}}
\Test\ltx@cdrthree{abcdefg}{defg}
\Test\ltx@cdrfour{abcdefg}{efg}
\Test{\ltx@CdrNum{5}}{abcdefg}{fg}
\Test{\ltx@CdrNum{0}}{\par}{\par}
\Test{\ltx@CdrNum{0}}{\@empty}{\@empty}
\Test{\ltx@CdrNum{0}}{{}}{{}}
\Test{\ltx@CdrNum{0}}{ }{ }
\Test{\ltx@CdrNum{2}}{abcd}{cd}
\Test{\ltx@CdrNum{2}}{\vbox\par\hbox\par}{\hbox\par}
\Test{\ltx@carthree}{abcdefg}{abc}
\Test{\ltx@carfour}{abcdefg}{abcd}
\Test{\ltx@CarNum{5}}{abcdefg}{abcde}
\Test{\ltx@CarNum{2}}{\@empty\par}{\@empty\par}
\Test\ltx@carthird{abcdefg}{c}
\Test\ltx@carfourth{abcdefg}{d}
\Test{\ltx@CarNumth{5}}{abcdefg}{e}
\Test{\ltx@CarNumth{2}}{\@empty\@empty\@empty}{\@empty}
\Test{\ltx@CarNumth{2}}{\par\par\par}{\par}
\Test{\ltx@CarNumth{2}}{ab}{b}
\csname @@end\endcsname\end
\endinput
%%
%% End of file `ltxcmds-test-carcdr.tex'.