diff options
author | Karl Berry <karl@freefriends.org> | 2010-01-13 01:18:02 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-01-13 01:18:02 +0000 |
commit | 2c3f4ac000585f4d975117d6000cbfd574070fef (patch) | |
tree | 4472d9ffb35f46e81df4b31ff5a367e1816dc042 /Build/source/texk/web2c/tests/write18-quote.tex | |
parent | 8a0ac1c324c5add345d500a13d24dcdb5785d9cb (diff) |
start at testing restricted \write18 and quotes, plus factoring out common test functions
git-svn-id: svn://tug.org/texlive/trunk@16695 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/tests/write18-quote.tex')
-rw-r--r-- | Build/source/texk/web2c/tests/write18-quote.tex | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/tests/write18-quote.tex b/Build/source/texk/web2c/tests/write18-quote.tex new file mode 100644 index 00000000000..d766ac4f808 --- /dev/null +++ b/Build/source/texk/web2c/tests/write18-quote.tex @@ -0,0 +1,16 @@ +% $Id$ +% Copyright 2010 Karl Berry <tex-live@tug.org>. +% You may freely use, modify and/or distribute this file. + +\catcode`\{=1 \catcode`\}=2 % allow for running with initex. + +% This filename is used in the test code. +\def\newfile{write18-quote-newfile.tex} % tex expansion happens first. + +\immediate\write18{false "`touch \newfile`"} +\immediate\write18{false "story.tex'; touch '\newfile"} + +% xxtodo: something about pipes. +%\message{\input |printf /etc/issue} + +\end |