atbegshi 1.2 (oberdiek 20apr07)

git-svn-id: svn://tug.org/texlive/trunk@4170 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 125 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/latex/oberdiek/atbegshi-test1.tex b/Master/texmf-dist/doc/latex/oberdiek/atbegshi-test1.tex
new file mode 100644
index 00000000000..1616574753c
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/oberdiek/atbegshi-test1.tex
@@ -0,0 +1,125 @@
+%%
+%% This is file `atbegshi-test1.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% atbegshi.dtx  (with options: `test1')
+%% 
+%% This is a generated file.
+%% 
+%% Copyright (C) 2007 by Heiko Oberdiek <oberdiek@uni-freiburg.de>
+%% 
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any later
+%% version. 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.
+%% 
+%% This work consists of the main source file atbegshi.dtx
+%% and the derived files
+%%    atbegshi.sty, atbegshi.pdf, atbegshi.ins, atbegshi.drv,
+%%    atbegshi-test1.tex, atbegshi-test2.tex.
+%% 
+\input atbegshi.sty\relax
+\def\msg#{\immediate\write16}
+\msg{File: atbegshi-test1.tex 2007/04/19 v1.2 Test file for plain-TeX}
+\def\testmsg#1#2{%
+  \msg{}%
+  \msg{*** Test with box (#1), expected page output [#2]}%
+}
+
+\newbox\voidbox
+\def\void{\box\voidbox}
+\begingroup
+  \setbox\voidbox=\void
+\endgroup
+
+\count0=0\relax
+\AtBeginShipout{%
+  \global\advance\count0 by 1\relax
+  \msg{* Inside \string\AtBeginShipout: [\the\count0]}%
+}
+
+\AtBeginShipoutFirst{%
+  \msg{* Inside \string\AtBeginShipoutFirst}%
+  Hello World%
+}
+
+\testmsg{\string\null}{1}
+\shipout\null
+
+\AtBeginShipoutFirst{%
+  This is too late%
+}
+
+\testmsg{void}{}
+\shipout\void
+
+\testmsg{\string\copy255 (not void)}{2}
+\setbox255\hbox{\vrule height 10bp width 10bp}
+\shipout\copy255 %
+
+\testmsg{\string\copy255 (again)}{3}
+\shipout\copy255 %
+
+\testmsg{\string\box255}{4}
+\shipout\box255 %
+
+\testmsg{\string\box255 (again)}{}
+\shipout\box255 %
+
+\testmsg{\string\hbox}{5}
+\shipout\hbox{\vrule height 5bp width 20bp}
+
+\testmsg{\string\vbox}{6}
+\shipout\vbox{\hrule height 20bp width 5bp}
+
+\testmsg{\string\null, voided by hook}{}
+\def\VoidBox{%
+  \begingroup
+    \setbox\AtBeginShipoutBox=\box\AtBeginShipoutBox
+  \endgroup
+}
+\AtBeginShipout{\VoidBox}
+\shipout\null
+\def\VoidBox{}
+
+\msg{*** \string\begingroup}
+\begingroup
+  \testmsg{void}{}%
+  \shipout\void
+\msg{*** \string\endgroup}
+\endgroup
+
+\msg{*** \string\begingroup}
+\begingroup
+  \testmsg{void}{}%
+  \shipout\void
+  \testmsg{\string\null}{8}%
+  \shipout\null
+\msg{*** \string\endgroup}
+\endgroup
+
+\testmsg{output routine}{9}
+Hello World
+\vfill
+\eject
+
+\testmsg{\string\null\space(discarded)}{}
+\AtBeginShipout{%
+  \msg{* Inside \string\AtBeginShipout: DISCARD}%
+  \AtBeginShipoutDiscard
+}
+\shipout\null
+
+\end
+\endinput
+%%
+%% End of file `atbegshi-test1.tex'.