summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/oberdiek/test/ltxcmds-test-zapspace.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/oberdiek/test/ltxcmds-test-zapspace.tex')
-rw-r--r--Master/texmf-dist/doc/latex/oberdiek/test/ltxcmds-test-zapspace.tex105
1 files changed, 105 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/oberdiek/test/ltxcmds-test-zapspace.tex b/Master/texmf-dist/doc/latex/oberdiek/test/ltxcmds-test-zapspace.tex
new file mode 100644
index 00000000000..f421a5ed6e5
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/oberdiek/test/ltxcmds-test-zapspace.tex
@@ -0,0 +1,105 @@
+%%
+%% This is file `ltxcmds-test-zapspace.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% ltxcmds.dtx (with options: `test-zapspace')
+%%
+%% This is a generated file.
+%%
+%% 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.
+%%
+\catcode`\{=1 %
+\catcode`\}=2 %
+\catcode`\#=6 %
+\catcode`\@=11 %
+\errorcontextlines=1000 %
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname RequirePackage\endcsname\relax
+ \input ltxcmds.sty\relax
+\else
+ \RequirePackage{ltxcmds}[2011/03/16]%
+\fi
+\def\msg#{\immediate\write16}
+\def\space{ }
+\def\empty{}
+\msg{* \string\ltx@zapspace}
+\long\def\test#1#2{%
+ \begingroup
+ \def\TestInput{#1}%
+ \def\TestExpected{#2}%
+ % Test \ltx@zapspace
+ \expandafter\expandafter\expandafter\def
+ \expandafter\expandafter\expandafter\TestResult
+ \expandafter\expandafter\expandafter{%
+ \ltx@zapspace{#1}%
+ }%
+ \ifx\TestResult\TestExpected
+ \msg{* Test OK}%
+ \else
+ \ltx@onelevel@sanitize\TestInput
+ \ltx@onelevel@sanitize\TestExpected
+ \ltx@onelevel@sanitize\TestResult
+ \msg{* Input: \space\space\space[\TestInput]}%
+ \msg{ \space Result: \space\space[\TestResult]}%
+ \msg{ \space Expected: [\TestExpected]}%
+ \errmessage{Test failed!}%
+ \fi
+ \endgroup
+}
+\long\def\etest#1#2{%
+ \begingroup
+ \edef\x{\endgroup
+ \noexpand\test{#1}{#2}%
+ }%
+ \x
+}
+\catcode`\~=13 %
+\let~\noexpand
+\test{}{}
+\test{{}}{{}}
+\test{ {}}{{}}
+\test{{ }}{{ }}
+\test{{} }{{}}
+\test{ {} }{{}}
+\test{ { } }{{ }}
+\test{a {b} c}{a{b}c}
+\test{a bb ccc}{abbccc}
+\test{{a} {bb} {ccc}}{{a}{bb}{ccc}}
+\test{\par}{\par}
+\test{\if}{\if}
+\test{\space}{\space}
+\etest{\par\space\par}{\par\par}
+\etest{~\empty\space~\empty}{~\empty~\empty}
+\etest{~\fi\space~\else\space}{~\fi~\else}
+\csname @@end\endcsname\end
+
+\endinput
+%%
+%% End of file `ltxcmds-test-zapspace.tex'.