1 files changed, 57 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/luatex/luatexbase/test-regs-plain.tex b/Master/texmf-dist/doc/luatex/luatexbase/test-regs-plain.tex
new file mode 100644
index 00000000000..81581305bd2
--- /dev/null
+++ b/Master/texmf-dist/doc/luatex/luatexbase/test-regs-plain.tex
@@ -0,0 +1,57 @@
+%%
+%% This is file `test-regs-plain.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% luatexbase-regs.dtx  (with options: `testplain')
+%% 
+%% Written in 2009, 2010 by Manuel Pegourie-Gonnard and Elie Roux.
+%% 
+%% This work is under the CC0 license.
+%% See source file 'luatexbase-regs.dtx' for details.
+%% 
+\input luatexbase-regs.sty
+\def\checkregister#1{%
+  \edef\newregister{\expandafter\noexpand\csname new#1\endcsname}%
+  \edef\locregister{\expandafter\noexpand\csname loc#1\endcsname}%
+  \count0 1
+  \loop
+    \newregister\dummy
+    \locregister\dummy
+  \ifnum\count0<30000
+    \advance\count0 1
+  \repeat}
+\checkregister{count}
+\checkregister{dimen}
+\checkregister{skip}
+\checkregister{muskip}
+\checkregister{box}
+\checkregister{toks}
+\checkregister{marks}
+
+\count0 1
+\loop \ifnum\count0<100
+  \csname newinsert\endcsname\dummy
+  \advance\count0 1
+\repeat
+
+\globcountblk \dummy{3000}
+\globdimenblk \dummy{3000}
+\globskipblk  \dummy{3000}
+\globmuskipblk\dummy{3000}
+\globboxblk   \dummy{3000}
+\globtoksblk  \dummy{3000}
+\globmarksblk \dummy{3000}
+
+\loccountblk  \dummy{1000}
+\locdimenblk  \dummy{1000}
+\locskipblk   \dummy{1000}
+\locmuskipblk \dummy{1000}
+\locboxblk    \dummy{1000}
+\loctoksblk   \dummy{1000}
+\locmarksblk  \dummy{1000}
+\bye
+\endinput
+%%
+%% End of file `test-regs-plain.tex'.