summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/avremu/avr.testsuite.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-10-14 22:25:31 +0000
committerKarl Berry <karl@freefriends.org>2014-10-14 22:25:31 +0000
commit0db489324b44568fc4fdd9d194ce6d17203fae88 (patch)
treed14c24184a6da8bdbbb2886ac268350ce77fe1e5 /Master/texmf-dist/tex/latex/avremu/avr.testsuite.tex
parent0f77752d377a5492ac8d36d73cb08ef7098dee64 (diff)
avremu (14oct14)
git-svn-id: svn://tug.org/texlive/trunk@35373 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/avremu/avr.testsuite.tex')
-rw-r--r--Master/texmf-dist/tex/latex/avremu/avr.testsuite.tex56
1 files changed, 56 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/avremu/avr.testsuite.tex b/Master/texmf-dist/tex/latex/avremu/avr.testsuite.tex
new file mode 100644
index 00000000000..d1e96f6422b
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/avremu/avr.testsuite.tex
@@ -0,0 +1,56 @@
+%% Copyright (C) 2014 Christian Dietrich <stettberger@dokucode.de>
+%% -------------------------------------------------------
+%%
+%% This package may be distributed and/or modified under the conditions
+%% of the LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX
+%% version 2008/05/04 or later.
+
+%% These Functions are used within the test-suite
+\def\avr@test@setup#1{%
+ \typeout{---- Test: #1 ----}%
+ \typeout{-> Initialize the AVR}%
+ \avr@init%
+}
+
+\def\avr@test@SREG#1{% Tests SREG for value
+ \avr@sreg@get{\@@SREG}%
+ \expandafter\ifstrequal\expandafter{\@@SREG}{#1}{%Success
+ }{%
+ \avr@error{SREG unequal: #1 != \@@SREG}%
+ }%
+}
+
+\def\avr@test@REG#1#2{% Tests SREG for value
+ \avr@reg@get{\csuse{avr@#1}}{\@@REG}%
+ \expandafter\ifstrequal\expandafter{\@@REG}{#2}{%Success
+ }{%
+ \avr@error{REG unequal: #2 != \@@REG}%
+ }%
+}
+
+\def\avr@test@MEM#1#2{% Tests MEM for value
+ \avr@mem@get{#1}{\@@MEM}%
+ \expandafter\ifstrequal\expandafter{\@@MEM}{#2}{%Success
+ }{%
+ \avr@error{MEM unequal: #2 != \@@MEM}%
+ }%
+}
+
+\def\avr@test@UDR#1{% Tests UDR output
+ \ifdefstring{\avr@UDR}{#1}{%Success
+ }{%
+ \avr@error{UDR unequal: #1 != \avr@UDR}%
+ }%
+ \def\avr@UDR{}%
+}
+
+%%% Local Variables:
+%%% mode: latex
+%%% TeX-master: "avr.tex"
+%%% End: