diff options
author | Karl Berry <karl@freefriends.org> | 2009-09-22 23:13:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-09-22 23:13:21 +0000 |
commit | f2435dcf2dc35a33fe7f52d9a4363ed957754e69 (patch) | |
tree | 626182a7434cccb3f5ab4d64816737e09b96a053 /Master/texmf-dist/doc/latex/oberdiek/test | |
parent | de46b5f77bf1be619bbc385a2708563c6b760b64 (diff) |
oberdiek update (22sep09)
git-svn-id: svn://tug.org/texlive/trunk@15428 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/oberdiek/test')
3 files changed, 325 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test1.tex b/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test1.tex new file mode 100644 index 00000000000..bb0c2bd914b --- /dev/null +++ b/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test1.tex @@ -0,0 +1,110 @@ +%% +%% This is file `uniquecounter-test1.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uniquecounter.dtx (with options: `test1') +%% +%% This is a generated file. +%% +%% Copyright (C) 2009 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 uniquecounter.dtx +%% and the derived files +%% uniquecounter.sty, uniquecounter.pdf, uniquecounter.ins, +%% uniquecounter.drv, uniquecounter-example.tex, +%% uniquecounter-test1.tex, uniquecounter-test2.tex, +%% uniquecounter-test3.tex. +%% +\catcode`\{=1 % +\catcode`\}=2 % +\catcode`\#=6 % +\catcode`\@=11 % +\expandafter\ifx\csname count@\endcsname\relax + \countdef\count@=255 % +\fi +\expandafter\ifx\csname @gobble\endcsname\relax + \long\def\@gobble#1{}% +\fi +\expandafter\ifx\csname @firstofone\endcsname\relax + \long\def\@firstofone#1{#1}% +\fi +\expandafter\ifx\csname loop\endcsname\relax + \expandafter\@firstofone +\else + \expandafter\@gobble +\fi +{% + \def\loop#1\repeat{% + \def\body{#1}% + \iterate + }% + \def\iterate{% + \body + \let\next\iterate + \else + \let\next\relax + \fi + \next + }% + \let\repeat=\fi +}% +\def\RestoreCatcodes{} +\count@=0 % +\loop + \edef\RestoreCatcodes{% + \RestoreCatcodes + \catcode\the\count@=\the\catcode\count@\relax + }% +\ifnum\count@<255 % + \advance\count@ 1 % +\repeat + +\def\RangeCatcodeInvalid#1#2{% + \count@=#1\relax + \loop + \catcode\count@=15 % + \ifnum\count@<#2\relax + \advance\count@ 1 % + \repeat +} +\expandafter\ifx\csname LoadCommand\endcsname\relax + \def\LoadCommand{\input uniquecounter.sty\relax}% +\fi +\def\Test{% + \RangeCatcodeInvalid{0}{47}% + \RangeCatcodeInvalid{58}{64}% + \RangeCatcodeInvalid{91}{96}% + \RangeCatcodeInvalid{123}{255}% + \catcode`\@=12 % + \catcode`\\=0 % + \catcode`\{=1 % + \catcode`\}=2 % + \catcode`\#=6 % + \catcode`\[=12 % + \catcode`\]=12 % + \catcode`\%=14 % + \catcode`\ =10 % + \catcode13=5 % + \LoadCommand + \RestoreCatcodes +} +\Test +\csname @@end\endcsname +\end +\endinput +%% +%% End of file `uniquecounter-test1.tex'. diff --git a/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test2.tex b/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test2.tex new file mode 100644 index 00000000000..a2723e2de28 --- /dev/null +++ b/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test2.tex @@ -0,0 +1,102 @@ +%% +%% This is file `uniquecounter-test2.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uniquecounter.dtx (with options: `test2') +%% +%% This is a generated file. +%% +%% Copyright (C) 2009 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 uniquecounter.dtx +%% and the derived files +%% uniquecounter.sty, uniquecounter.pdf, uniquecounter.ins, +%% uniquecounter.drv, uniquecounter-example.tex, +%% uniquecounter-test1.tex, uniquecounter-test2.tex, +%% uniquecounter-test3.tex. +%% +\NeedsTeXFormat{LaTeX2e} +\nofiles +\documentclass{minimal} +\usepackage{uniquecounter}[2009/09/11] +\usepackage{qstest} +\IncludeTests{*} +\LogTests{log}{*}{*} + +\newcommand*{\CheckValue}[2]{% + \Expect*{#2}*{\UniqueCounterGet{#1}}% +} +\newcommand*{\CheckSpace}[1]{% + \sbox0{#1}% + \Expect{0.0pt}*{\the\wd0}% +} + +\begin{qstest}{creation}{creation} + \CheckSpace{% + \UniqueCounterNew{test}% + }% + \CheckValue{test}{0}% +\end{qstest} + +\begin{qstest}{increment}{increment} + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \CheckValue{test}{1}% + \makeatletter + \def\uqc@cnt@test{2147483645}% + \CheckValue{test}{2147483645}% + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \CheckValue{test}{2147483646}% + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \Expect{true}*{\ifx\uqc@inc\uqc@NumInc true\else false\fi}% + \CheckValue{test}{2147483647}% + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \CheckValue{test}{2147483648}% + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \CheckValue{test}{2147483649}% +\end{qstest} + +\begin{qstest}{call}{call} + \def\CheckCall#1#2{% + \Expect{#1}{#2}% + }% + \CheckSpace{% + \UniqueCounterNew{foo}% + }% + \CheckValue{foo}{0}% + \CheckSpace{% + \UniqueCounterCall{foo}{\CheckCall}{1}% + }% + \CheckSpace{% + \UniqueCounterCall{foo}{\CheckCall}{2}% + }% + \CheckValue{foo}{2}% +\end{qstest} + +\csname @@end\endcsname +\endinput +%% +%% End of file `uniquecounter-test2.tex'. diff --git a/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test3.tex b/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test3.tex new file mode 100644 index 00000000000..00cb530ec10 --- /dev/null +++ b/Master/texmf-dist/doc/latex/oberdiek/test/uniquecounter-test3.tex @@ -0,0 +1,113 @@ +%% +%% This is file `uniquecounter-test3.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uniquecounter.dtx (with options: `test3') +%% +%% This is a generated file. +%% +%% Copyright (C) 2009 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 uniquecounter.dtx +%% and the derived files +%% uniquecounter.sty, uniquecounter.pdf, uniquecounter.ins, +%% uniquecounter.drv, uniquecounter-example.tex, +%% uniquecounter-test1.tex, uniquecounter-test2.tex, +%% uniquecounter-test3.tex. +%% +\input uniquecounter.sty\relax +\catcode`\@=11 % +\def\CheckValue#1#2{% + \begingroup + \edef\A{#2}% + \edef\B{\UniqueCounterGet{#1}}% + \ifx\A\B + \else + \@PackageError{TEST}{Failed: \A\space<> \B}\@ehc + \fi + \endgroup +} +\def\CheckSpace#1{% + \setbox0=\hbox{#1}% + \ifdim\wd0=\z@ + \else + \@PackageError{TEST}{Failed: 0.0pt <> \the\wd0}\@ehc + \fi +} + +\begingroup + \CheckSpace{% + \UniqueCounterNew{test}% + }% + \CheckValue{test}{0}% +\endgroup + +\begingroup + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \CheckValue{test}{1}% + \def\uqc@cnt@test{2147483645}% + \CheckValue{test}{2147483645}% + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \CheckValue{test}{2147483646}% + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \ifx\uqc@inc\uqc@NumInc + \else + \@PackageError{TEST}{Failed: wrong inc function}\@ehc + \fi + \CheckValue{test}{2147483647}% + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \CheckValue{test}{2147483648}% + \CheckSpace{% + \UniqueCounterIncrement{test}% + }% + \CheckValue{test}{2147483649}% +\endgroup +\begingroup + \def\CheckCall#1#2{% + \begingroup + \def\A{#1}% + \def\B{#2}% + \ifx\A\B + \else + \@PackageError{TEST}{Failed: \A\space <> \B}\@ehc + \fi + \endgroup + }% + \CheckSpace{% + \UniqueCounterNew{foo}% + }% + \CheckValue{foo}{0}% + \CheckSpace{% + \UniqueCounterCall{foo}{\CheckCall}{1}% + }% + \CheckSpace{% + \UniqueCounterCall{foo}{\CheckCall}{2}% + }% + \CheckValue{foo}{2}% +\endgroup +\csname @@end\endcsname\end +\endinput +%% +%% End of file `uniquecounter-test3.tex'. |