summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex')
-rw-r--r--Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex66
1 files changed, 66 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex b/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex
index 2ec2d2c64ab..60221d3580a 100644
--- a/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex
+++ b/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex
@@ -36,6 +36,7 @@
%%
\def\msg#{\immediate\write16}
\newlinechar=10 %
+\tracingnesting=2 %
\input catchfile.sty\relax
\def\mysetup{%
@@ -44,9 +45,63 @@
}%
\dospecials
}
+\def\CheckContents{%
+ \begingroup
+ \expandafter\ifx\csname contents\endcsname\relax
+ \def\space{ }%
+ \errmessage{\string\contents\space is not defined.}%
+ \fi
+ \endgroup
+}
+\catcode`\@=11 %
+\def\CheckCleanup{%
+ \begingroup
+ \edef\x{\the\toks0}%
+ \def\y{ABC}%
+ \ifx\x\y
+ \else
+ \errmessage{\string\toks0 has changed}%
+ \fi
+ \ifx\CatchFile@gtemp\@undefined
+ \else
+ \errmessage{Left over \string\CatchFile@gtemp}%
+ \fi
+ \endgroup
+}
+\def\Check{%
+ \CheckContents
+ \CheckCleanup
+}
+\def\StartDisableUnexpanded{%
+ \begingroup
+ \let\etex@unexpanded\@undefined
+}
+\def\StopDisableUnexpanded{%
+ \endgroup
+}
+\catcode`\@=12 %
+
+\toks0{ABC}
+
+\CatchFileDef\contents{catchfile.sty}\mysetup
+\msg{\meaning\contents}
+\Check
+\msg{***********************************************************}%
+\CatchFileDef\contents{catchfile.sty}{}
+\msg{\meaning\contents}
+\Check
+\msg{***********************************************************}%
+\StartDisableUnexpanded
\CatchFileDef\contents{catchfile.sty}\mysetup
\msg{\meaning\contents}
+\Check
+\msg{***********************************************************}%
+\CatchFileDef\contents{catchfile.sty}{}
+\msg{\meaning\contents}
+\Check
+\msg{***********************************************************}%
+\StopDisableUnexpanded
\CatchFileEdef\contents{catchfile.sty}{%
\mysetup
@@ -54,6 +109,17 @@
\obeylines
}
\msg{\contents}
+\Check
+\msg{***********************************************************}%
+\CatchFileEdef\contents{catchfile.sty}{%
+ \catcode`\\=12 %
+ \catcode`\#=12 %
+ \def\par{^^J}%
+ \obeylines
+}
+\msg{\contents}
+\Check
+\msg{***********************************************************}%
\csname @@end\endcsname
\end